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NASA Grant NAG 3-456, "Deformation Analysis of Rotary 
Combustion Engine Housings," was initiated with three objectives 
in mind. The first of these objectives was the generation of a 
detailed finite element model of a rotary engine's center 
(trochoid) housing. Once this model had been generated, the second 
objective of the project, the prediction of the stress and 
deformation fields within the trochoid housing during engine 
operation, could be attacked. Finally, the third objective of this 
work was the development of a preprocessor which would simplify the 
generation of subsequent finite element models for alternate center 
housing designs. The purpose of this preprocessor was to greatly 
shorten the development time for modified trochoid housings. While 
the first and third objectives were fully met, the second objective 
proved difficult to achieve. The following report details the work 
done at MTU on NASA Grant NAG 3-456. 

Objective 1 

Development and Verification of a Finite Element Model 
the Trochoid Housing 

Initially the engine type under investigation was manufactured 
by Mazda. A picture of this engine's trochoid housing is included 
^'■^■Uure 1 . The final finite element model for this housing is 
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Figure 1 

Mazda Type Trochoid Housing 
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shown in Figure 2. This model was developed and tested as the 
M.S. thesis of Scott Bradley. During Scott's development process 
various element types were examined for their suitability and 
different mesh densities were explored to determine the coarsest 
mesh which would model the housing's response accurately. In order 
to verify the response of the finite element model, a comparison 
was made with experimentally measured stresses reduced from strain 
gage measurements. The discrepancy between the experimental 
results and the finite element predictions were found to be 
acceptable, and the model shown in Figure 2 was accepted for use 
in the dynamic simulation phase of the project. A more detailed 
description of the development and testing of this model is 
contained in Scott's M.S. thesis which is attached as Appendix A. 

Objective 2 

Prediction of the Stress and Deformation Fields Present 
within the Trochoid Housing During Operating Conditions 


At this point in the project NASA changed the engine under 
investigation from the Mazda engine to an engine produced by 
Outboard Marine Corporation (The OMC engine) . The geometric 
similarities between the Mazda engine and the OMC engine were few. 
While the basic trochoidal shape of the bore remained the same, the 
cooling channel pattern was radically different. This change 
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required the complete regeneration of a finite element model. The 
information on mesh refinement gained from the development of a 
FEM model for the Mazda engine was useful, but the input of the 
geometrical characteristics needed to be completely redone. An 
M.S. student was enlisted to generate and exercise a model of the 
OMC engine. Unfortunately, this student left after one year 

Without making much progress. A second student (A M.S. student 
who remained at MTU after finishing his degree.) with FEM 
experience was employed to help with the modelling. a finite 
element model was generated and delivered after nine months. When 
an attempt was made to exercise this model, it was discovered that 
elements with unacceptable geometric shapes were present within the 
model. in order to eliminate these unacceptable elements, the 
project director revised the model. The final finite element model 
of the OMC center housing is shown in Figure 3. in viewing this 
model it should be noted that since the trochoid housing is 

symmetric about its midplane, only 1/2 of the housing needed to be 
modeled . 

With the model complete, the next step in the prediction of the 
stress and deformation fields present during operating conditions 
was the calculation of the model shapes and natural frequencies of 
the housing. The boundary conditions necessary were generated, and 
the job was submitted to the MTU computational facility. 
Unfortunately, the operating system present on the MTU computer did 
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Figure 2 

Finite Element Mesh 
for the 

Mazda Type Trochoid Housing 
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Figure 3 

Finite Element Mesh 
for the 

OMC Type Trochoid Housing 


6 


not allow file lengths of sufficient magnitude to allow calculation 
of the dynamic characteristics of this model. After conferring 
with NASTRAN consultants, a fix to this problem was discovered. 
The model needed to be divided into substructures. These subsets 
of the original model would then be treated separately and finally 
computationally recombined, thereby eliminating the file length 
problem. This substructuring was performed by the project 
director, and the revised model was once again submitted. Time 
estimates for completion of the job calculated by NASTRAN were on 
the order of 150 hours. Since it is virtually impossible to 
complete a job of that length without the MTU system going down, 
it was decided that competing this work with the computational 
facility at MTU was unfeasible. 

At this point in the project a NASA Cray account was requested 
and received. The FEM model of the OMC housing was loaded on tape 
and forwarded to Lewis Research Center. The eigenvalue problem 
associated with determining the mode shapes and natural frequencies 
was completed and the lowest natural frequencies calculated are 
listed are shown in Table 1. 

The modal results were then ready for recombination in order to 
determine the stress history at the placed where the experimental 
data had been extracted. This required the transfer of the 
eigenvalue results back to MTU. At this point another obstacle was 
encountered. The file transfer routines required for the transfer 
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Table 1 


Lowest Natural Frequencies 
for the 

Trochoid Housing 

Natural Frequency (Cycles/Sec) 

1621 
1908 
1981 
2458 

of large amounts of data between MTU and NASA were not working 
correctly. The project director spent approximately one month 
trying to find a solution to this problem and finally obtained a 
band-aid, temporary, fix to the data transfer problem. 

This is where the dynamic analysis is at the present time. 
The delays have been unfortunate. The work remaining on the 
dynamic analysis includes the recombination of the modal response 
to the pressure loading on the housing, and the superposition of 
these results with the thermal stresses arising from the 
temperature distribution present within the engine during operating 
conditions. Since the final report is now being requested, these 
tasks remain unfinished. 


Mode 

1 

2 

3 

4 
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Objective 3 

Development of a Specialized Preprocessor 

for the Trochoid Housing 

The objective of this portion of the project was to develop a 
software product which would simplify the preparation of finite 
element models for a rotary engine's trochoid housing. Since a 
Mazda engine was initially under consideration, and since there 
were no indications early in the project that a switch to an 
alternate engine type would be desired or necessary, the 
preprocessor developed generates the complete finite element mesh 
for a rotary engine center housing of the Mazda type. This 
preprocessor shortens the development time necessary for mesh 
generation of a trochoid housing' s FEM model from roughly one man 
month to approximately two man hours. The creation of the is 
preprocessor was the M.S. thesis of W. Lychuk. 

In developing this preprocessor it was decided that 
duplication of the commercially available software for generating 
a finite element mesh within a defined geometric volume was 
unnecessary. Therefore, the preprocessor developed was written to 
prepare data for the commercial preprocessor SUPERTAB. SUPERTAB, 
now part of the IDEAS package available from Structural Dynamics 
Research Corporation was in place both at NASA and at Michigan 
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Tech. The Michigan Tech preprocessor generates a program file for 
SUPERTAB. After the input parameters detailed in Figure 4 are 
supplied to the MTU preprocessing software, an output file results 
which can be used to drive SUPERTAB to complete a finite element 

model of the housing. The housing parameters which can be altered 

include : 

1) The maximum and minimum diameters of the trochoidal bore. 

2) The thickness and axial depth of the center housing. 

3) The thickness of both the inner and outer shells. 

4) The thickness of the bore insert. 

5) The size, type, and location of each rib. 

6) The type of each channel. 

7) The size and location of the intake port. 

8) The size and location of the exhaust port. 

9) The size and location of the spark plug ports. 

The details of the development of this preprocessor are contained 

in the M.S. thesis of W.M. Lychuk. A copy of this thesis is 
attached as Appendix B. A listing of the code developed as the 
aforementioned preprocessor is included as Appendix C. 
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Conclusion 


P^oblsins with psrsonal and computational facilities were 

responsible for this project falling short of all of its originally 
stated objectives. In spite of these problems, detailed, 
executable, finite element models were developed for both the Mazda 
and the OMC trochoid housings. In addition, it was demonstrated 
that a preprocessor which would hasten the generation of finite 
element models of a rotary engine could be developed. Two 
publications resulted from this grant and summarize the work 
detailed in Appendices A & B. These publications are: 

1) Finite Element Model Development of Multiple Rotary 
Combustion Engine Housing Configurations, " by 

C.E. Passerello, C.R.Vilmann, S.A. Bradley, and 
W.M. Lychuk, published in the Proceedings of the CADAM 
User Exchange, May 1985 meeting in New Orleans, LA. 

2) "Stress and Deformation Modeling of Multiple Rotary 

Combustion Engine Trochoid Housings," by W.M. Lychuk, 
S.A. Bradley, C.R. Vilmann, C.E. Passerello, and 
C. Lee, SAE paper number 860614, published in the 
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proceedings of the SAE International Congress and 
Exposition, Feb. 1986 meeting in Detroit MI. 

While all of the initial objectives were not met, they were, 
possibly, too ambitious given the constraints that were present. 
As a final note, the project director would like to express his 
disappointment in not being able to completely fulfill the original 
goals, and thank NASA for their support of this project. 


13 



Appendix 




FINITE ELEMENT MODELING OF A WANKEL 


ENGINE CENTER HOUSING 


by 

Scott Bradley 


A THESIS 

Submitted in partial fulfillment of the requirements 

for the degree of 

MASTER OF SCIENCE IN ENGINEERING MECHANICS 


MICHIGAN TECHNOLOGICAL UNIVERSITY 
1985 


LIBRARY 

WCBIGAN UCHNfllOGICAl UNIVERSff" 
UDJUGHIDN, MICHJGAN 


ABSTRACT 


In this study/ construction of a finite element model of a 
Wankel rotary combustion engine's center housing is presented. 
Analysis of the model is purely static/ however/ thermal and 
dynamic analysis considerations are taken into account. 
Verification of the model is accomplished through experimental 
tests on the actual housing. A convergence study is also 
completed by varying element types and interpolation orders. 
From the analysis and subsequent testing/ it is believed that 
constuction of a valid FEN of a Wankel engine's center housing 
has been completed. 
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1.00 BACKGROUND 


The Warkel rotary combustion engine (RCE) was initially 
introduced to the automotive industry in the early 1960's. 
Praised as the engine of the future/ it is basically an internal 
combustion engine which operates on the otto cycle: intakes 
compression/ combustion/ and exhaust. It executes the cycle by 
utilizing a triangular shaped rotor within a trochoidal shaped 
working chamber/ both of which are shown in figure 1.1. These 
working chambers/ commonly known as the center housings/ are 
located along the mainshaft and are separated by endcovers. The 
full engine configuration is shown in figure 1.2. Utilized in a 
variety of environments/ the Wankel is a lightweight/ compact/ 
smooth running engine which has multi fuel capability and can be 
stratified charged very easily (1). 

1 .10 BASIC OPERATION 


In the RCE/ each face of the rotor can be considered a 

combustion chamber sliding along the inner bore. By rotating the 
rotor within the bore/ the otto cycle can be simultaneously 
completed three times for every revolution of the rotor. This 
process is illustrated in figure 1.3. The combustion phase 

exerts pressure on one face of the rotor which produces a rotary 

motion and brings the next chamber into firing position. In 
order to produce the rotary motion/ the pressure from combustion 
must be directed on a point away from the mainshaft centerline. 
For this reason/ the rotor is mounted on eccentric bearings which 
provide the leverage required. Phasing between the rotor 

rotation and the eccentric bearing rotation is accomplished 
through the use of phasing gears. A part of this gearing is a 
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(Courtesy of A. S. Barnes & Co.) 

stationary reaction gear mounted to the end cover and concentric 
to the mainshaft. This reaction gear neshes with an inner ring 
gear on the rotor. A gear ratio of 3:2 must exist. This gear 

ratio assures that for every rotation of the rotor/ the mainshaft 
completes three rotations. Thus/ a positive torque is applied 
for every one-thi rd rotation of the rotor which gives one 
complete power phase for each rotation of the mainshaft. 
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1.20 COMPARISON TO A PISTON ENGINE 


When comparing the rotary combustion engine (RCE) to a 
reciprocating engine (RPE)/ certain distinctions are clear. 
Instead of utilizing a cylindrical piston and its associated 
connecting rod/ the RCE uses a rotor centered around a mainshaft. 
A l s or ports/ which are opened and closed by the motion of the 
rotor/ replace the complicated valves and valve trains of the 
RPE . With the connecting rods/ camshafts/ pushrods/ and the 
other assorted parts eliminated/ the RCc’s size and weight is 
reduced to about half that of a RPE with comparable power output. 
In addition to fewer parts/ there are fewer moving parts/ 
indicating that the RCE operates at a lower manufacturing and 
repair cost. Fewer moving parts also produce less wear and power 
loss so reliability is high. 

Furthermore/ the use of a rotor eliminates the large inertia 
forces created by reciprocating masses. This/ in addition to the 
application of positive torque over a full mainshaft rotation/ 
leads to a smoother operating engine. Gas pressure loads on the 
bearings are higher in the RCE than in a piston engine. However/ 
centrifugal loads are lower/ thus the risk of bearing failure is 
far smaller which again makes the rotary engine highly reliable. 
Overall/ the rotary combustion engine is theoretically far 
superior to the reciprocating piston engine. 

1.30 PROBLEMS PLAGUING THE ROTARY ENGINE 


Although the rotary engine’s performance should be superior 
to a piston engine/ actual operation and development have been 
plagued with problems. A 12% higher specific fuel consumption/ 
higher hydrocarbon emissions/ and excessive wear of the center 
housing bore have hampered the success of the engine. The cause 
of these problems seem to be centered around the sealing system/ 
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specifically the apex seal. The apex seals which are located on 
each tip of the rotor/- tend to leave the inner trochoidal bore's 
surface just after ignition (2). When the seal retains contact 
with the surface it skids before complete semi fri ctionless 
contact is acquired. This liftoff and the subsequent skidding is 
thought to produce the effects discussed earlier. Many theories 
have been formulated on why apex seal liftoff occurs. Breakdown 
of the lubricating agents/ vibration of the seal within its 
setting/ and actual housing deformation are suspected causes. 
Changes in raateri al and geometry can reduce effects but further 
study is required. 

A few studies have been done on the effects of modifying the 
lubricating agents and seal properties: Behling and Weise (4) 

and Rogers/ et. al . (5). There also have been studies performed 
on apex seal vibration : Prasse/ McCormick/ and Anderson (6)/ 

Matsura/ et. al. (2) (7). Yet no study has been found in which a 
finite element deformation analysis of the center housing was 
performed. The need for a user friendly finite element model of 
the housing/ which can be modified to encompass geometry and 
loading changes is therefore needed. The scope of such a 
project/ though/ is too large to be completed by this thesis. 
Thus/ it is the purpose of this thesis to lay down a foundation 
on which future study can be done. This thesis will present the 
construction and validation of a finite element model of the 
housing alore. The model will be verified using static loading 
conditions with experimentally collected data. 

1.40 CENTER HOUSING GEOMETRY 

The housing used in this study/ shown in figure 1.4/ was 
provided by the NASA Lewis Research Center. It was obtained from 
a custom built/ 573 cc (35 cubic inch)/ high performance single 
rotor engine. The housing is centered about the mainshaft and is 
sandwiched between two endplates. It is made of an aluminum 
alloy and has a steel liner with a thickness of approximately 1 
mm within the trochoidal shaped bore. Cooling channels pass 
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Figure 1.5: Coolant flow diagram. 

(Courtesy of Chilton Book Co.) 

through the housing to allow axial flow of coolant as shown in 
figure 1.5. Noticeable features of the housing include the 
intake and exhaust ports* spark plug locations* bolt holes* and 
engine mounts. An added feature is the inner surface around the 
spark plug region. In order to aid in thermal diffusion* the 
surface is thinned. Terminology that will be used to describe 
the housing is illustrated in figure 1.6. 

1 .50 TRCCHODIAL BORE 


A prominent feature of the Wankel RCc is the shape of the 
inner bore. Although it is of trochoidal shape* the generation 
of the trochoid is first accomplished by constructing a true 
epitrochoid. Since the definition of an epitrochoid is the loci 
of a point on the radius of a circle which rolls without slip 
around a fixed base circle* see figure 1.7* an infinite number of 
epitrochoids are available. Only by making the base circle's 
radius twice that of the rolling circle's radius* is the familiar 
two lobed epitrochoid obtained. Thus* the basic dimensions 
needed to describe the epitrochoid are the base circle radius 
(Rl)* the rolling circle rauius <R2»Rl/2)* and the distance of 
the generating point from the center of the rolling circle* or 
the eccentricity (e). 
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Figure 1.6: Illustration of the various regions of the housing, 
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Figure 1.7: Illustration of epitrochoid generation. 


Figure 1.8: Illustration of trochoid generation.. 
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If the true epitrochoid shape were utilized in the Wankel 
RCE/ rotation of the rotor would force the seals to move in and 
out of their respective slots* Therefore/ the trochoidal shape/ 
shown in figure 1.8/ is employed. By introducing 
(a)/ the translation between the apex seal and 
slot is elitrinated. 


the parameter 
its containing 
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2.00 MODEL EXPECTATIONS 


In determining how the finite element model (FEM) should be 
constructed/ certain parameters were considered. Parameters such 
as model expectations/ housing response/ modeling accuracy/ and 
result interpretation were defined and evaluated. With the 
optimum mix of these parameters/ the FEM was constructed and 
tested to see if it accurately predicted the actual response to 
specified inputs in an efficient manner. The methods used in 
constructing the FE M and the manner in which they were verified 
are presented in this thesis. 

Looking at the housing's geometry (see figure 1.4) and 
assuming the loading due to running conditions will be some type 
of fluctuating thermal and pressure loads/ several conditions 
prevail. First/ the inner and outer surfaces experience a 
complex dynamic loading which Includes bending/ membrane/ and 
thermal stresses. Second/ the primary ribs experience a simple 
fluctuating compressive load. Third/ the spark plug and exhaust 
port regiors are high thermal stress areas. Fourth and finally/ 
no symmetry considerations are available since the endplates do 
not exhibit similar contact forces on either side of the housing. 

From reviewing these conditions and the engine 

configuration/ it is obvious that construction of a FEW that is 
capable of performing a dynamic analysis of the center housing 
under running conditions is far beyond the scope of a single 
thesis. Therefore/ as an Initial thrust toward a FEM fully 
capable of performing a dynamic analysis of the housing/ a FEM 
was constructed and a static deformation analysis was performed. 
Furthermore/ verification of the FEM was completed by utilizing 
the results from experimental testing of the actual housing. 
However/ since the FEM of the housing is to be a base on which 
further study will be done it was built with the capability of 
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completing all the required studies: thermal/ dynamic/ and 

endplate interaction/ with only minor changes- So/ though only a 
static analysis was done/ the construction of the FEM was 
completed with the running conditions previously mentioned in 
mind- 


2.10 MODELING REQUIREMENTS 

With no previous studies to draw from/ the Initial thoughts 
on modeling the housing were to construct it as two elongated 
cylinders with solid connecting ribs. Presumably/ the cylinders 
could be modeled with basic shell elements and the ribs with 
basic 3-D solid "brick" elements. The additional geometry/ 
exhaust and Intake ports/ spark plug/ secondary ribs/ and 
mid-plane stiffeners could be constructed using various types of 
shell elements. Some added qualities/ though/ would be required 
for the elements in certain regions. For example/ thermal 
stresses would be high in the exhaust port and spark plug areas 
so the elements modeling those areas would need the additional 
cap ability cf modeling temperature distributions. The inner and 
outer surfaces would also require this capability. The 

structural characteristics of the housing would require the 
elements modeling the inner and outer surfaces to be able to 
model bending/ membrane/ and shearing actions. In the primary 
ribs and port regions/ though/ elements would undergo only very 
simple structural loading. Furthermore/ the elements modeling 
the stiffening agents would be required to stiffen the area 
involved in the most accurate manner possible. These 

considerations/ being just an initial estimate of what is 
required to model the housing/ were built and expanded upon as 
the study proceded. 

2.20 MODELING CAPABILITIES 

During the study/ several finite element codes were 
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available: SAP6* SUPERS* and NASTRAN. But due to the complicated 
geometry* a graphical pre- and post-processor was required. 
SUPERTAB was* for most of the study* the only pre-processor 
available and was only interactive with SUPERB. Since the need 
for a more general FE M program such as NASTRAN or ANSYS ws not 

great and the need for a graphical pre-processor was* SUPE was 

chosen to sclve the model and its supporting tests. 

SUPERTAB creates the specific geometry using points*li 
edges* surfaces* and volumes. Meshes are placed on the defir 
geometry then nodes and elements are created according to the 
mesh size and configuration. The SUPERTAB file is then adjusted 
into SUPERS format. Using the nodal coordinates and element 
connectivity defined in this file* SUPERB solves the set of 
simultaneous equations obtained with an elemental wavefront 
technique. The wavefront of a finite element model is the number 
of degrees of freedom needed to be held by the computer in order 
to solve for a specific displacement. In general* an elemental 
wavefront solution differs from a nodal bandwidth solution in 
that a relatively small main frame computer is needed but an 
extreme amount of storage space is required. 

When constructing geometry with SUPERTAB* a prescribed order 
must be followed (see figure 2.1). Points must be defined before 
lines* arcs* and splines can be created. Edges need to be 
defined before surfaces or volumes can be created. Also* the 
order in which construction occurs determines a number of key 
parameters. Nodal and elemental numbering* coordinate system 
orientation* and in the case of thick shell elements* actual 
element configurations are determined by the sequence of 
detecting existing pieces of geometry. 

When defining the elements to be used* the specific element 
type must be selected. SUPERB has a limited finite element 
library but does support the basic types capable of modeling the 
housing. Interestingly enough* SUPERB supports two variations of 
shell elements: a 2-D thin shell and a 3-D thick shell element. 

Both of these shell elements have bending* membrane* and shearing 
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FIGURE 2.1: SUPERTAB GENERATION LEVELS. 
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capabilities. Also* both elements are capable of predicting 
in-plane temperature distributions* but only the thick shell 
element is capable of modeling a temperature distribution through 
the shell's thickness. Furthermore* each shell element is 
available in vari ous nodal configurations. A more indepth 
discussion cn each element type is listed in appendix 1. 

Since two types of shell elements were available to model 
the complex and varied loading conditions* a benchmark study was 
completed. The study was designed to determine the qualities and 
performance of each shell element. Mesh sizes* aspect ratios* 
and nodal configurations were varied and the results analyzed. 
The actual tests and results are given in appendix 2. A basic 
summary of this study* though* reveals four important shell 
element characteristics: 


1) Linear (4-node) thin shell elements are 
not capable of modeling shearing actions 
and tnerefore should not be usea in areas 
where shearing actions are evident. 


2) Linear (8-node) thick shell elements per- 
form very well but converge slowly so a 
smaller mesh size is required. 


3) Parabolic ( S-node) t nin and (16-node) thick 
shell elements perform extremely well and 
exactly alike. 


4) The sma llest .recommended mesh size for model- 
ing the housing woyld require at least six 
elements in the axial direction. A reduction 
J&«,' 0ur elements would produce an estimated 
10* error 


These attributes* along with the considerations mentioned in 
appendix 1 provided the nescessary knowledge to begin modeling 
the housing. 

2.30 MODEL CONSTRUCTION 

With the necessary information on hand* actual model 
construction began. Proceding with the assumption that the 
housing could be constructed using a mix of solid and shell 
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| elements* ideas on how and where these elements would be used 

) were discussed. Since a complex stress field was not expected* 

■ solid elements would be used exclusively in modeling the primary 

I ribs. Furthermore* due to the high temperatures expected* thick 

shell elements would be required in the,port and spark plug 
I regions. For the remaining geometry: the inner and outer 

surfaces* secondary ribs and mid-plane stiffeners* the pros and 
cons of utilizing either thick or thin shell element were 
weighed. The thin shell element was simple to construct* 
contained fewer nodes than the thick shell element* and performed 
extremely well. However* there were difficulties in implementing 
the thin shell elements. For one thing* a compatibility problem 
was introduced whenever thin shell and solid elements would be 
joined. Also* the thin shell element assumed a constant thermal 
distribution through its thickness and* due to its construction* 
only the displacement of its middle surface was available. On 
the other hand* the thick shell element had excellent thermal as 
well as structural capabilities* portrayed the actual geomtry 
shape* and had no compatibility problems with solid elements. It 
does contain twice as many nodes as the thin shell element but* 
since each node supports half the degrees of freedom* the model's 
size is not affected. Taking this into account* the thick shell 
element was determined to be an excellent choice to model the 
inner and outer surfaces. The secondary ribs and mid-plane 
stiffeners* however* would be modeled with thin shell elements. 
This was because the adverse qualities of the thin shell element 
did not affect its performance in these regions. 

The final aspect of the initial construction phase was that 
the model had to be constructed utilizing parabolic nodal 
configurations. The performance of the shell elements were 
greatly affected by this parameter. Furthermore* even though the 
solid elements performance was not affected by its nodal 

configuration* they also would utilize parabolic elements. This 
would ease construction since the use of transition elements 
would not be required. 

Given the blueprint for the final model* outlined above* 
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convergence requirements as well as computer limitations were 
considered. In order to satisfy both/ a modeling sequence was 
established. Modeling construction methods as well as the 
model’s capabilities were Improved and enhanced as determined by 
previous models. Basically/ the sequence consisted of four 
models: the linear thin shell model/ a parabolic thin shell 
model/ a parabolic thick shell model/ and the final model which 
utilized all of the proven construction features. The actual 
construction and the subsequent analysis of each model is 
presented later on in this thesis. 
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3.00 CENTER HOUSE TESTING 


After the construction sequence was determined and 
implemented# methods for verification of each model were 
considered. Undoubtedly/ experimental tests of the actual 
housing were necessary. But/ it was important that the testing 
be indicative of the dynamic stress fields the housing would 
encounter during operation. Thus/ a test which applied a stress 
field that encompassed bending/ membrane/ shearing/ and uniaxial 
effects in varying degrees was required. To accomplish this/ two 
tests were performed. The initial test consisted of merely 
subjecting the housing to an internal pressure. However/ due to 
complications in simulating this test/ a second test was 

performed. This second test/ a simple tensile test/ was easily 
simulated and provided a loading that exercised each model's 
capability to predict a complex stress field. 

3.10 UNIFORM INTERNAL PRESSURE TEST (IPT) 

The first test was performed by NASA. The housing was 
sealed and pressurized to 500 psi in increments of 100 psi. At 
each increment the strains in three locations were recorded. 
This was accompli shed through the use of strain gage rosettes 
mounted by NASA. A graphical representation of the test and the 
location of the rosettes is given in figure 3.1. These strains 
are plotted in figures 3.2“3.4. 

Several tests were performed and consistent d 3 ta was 
obtained. Yet/ in analyzing the data/ certain discrepancies were 
noticed. First/ the strains were scattered. Second/ the maximum 
principal stress occurred in the axial direction instead of the 
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figure 3.3; internal pressure test. 
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hoop direction. Third and finally, the stress at location N, 
which is a heavily reinforced region, was computed to be larger 
than the stress at location H, which is a region with very little 
support. There were other puzzling features but these 
discrepancies alone forced further investigation into the test. 
Inevitably, this led to reviewing the test procedure and the 
manner in which it was executed. 

The procedure was very straight forward. In order to 
pressurize the housing it needed to be sealed. This sealing was 
accomplished by bolting two aluminum plates to either side of the 
housing. After the bolts were tightened, the gages were zeroed 
and the housing was pressurized. Thus, the preload that 
Initially existed on the housing from tightening the bolts had 
been neglected. When the housing was pressurized, the pressure 
proceded to relieve the compressive load which induced a tensile 
strain in the gages. The summation of the preload relief and the 
pressurization was what the gages actually read. In an attempt 
to grasp the effect of the preload, the bolts were loosened and 
resulting strains recorded. The vertical line on graphs 2. 2-3. 4 
Indicate these strains. As can be seen, the effect of the 
preload varied throughout the housing. 

Theories were hypothesized on what was occuring within the 
housing. Summarized, these theories were that either the housing 
deformed until the clearance in the bolts was taken up, or, the 
preload was completely relieved and deformation of the 
endplates, simulated in figure 3.5, was occuring. Although this 
occurrence needed to be studied, it was not easily simulated and 
study of it was not proposed by this thesis. Therefore, a second 
test was needed which could be easily simulated and would also 
verify each model. 

3.20 DISCUSSION OF THE TENSILE TEST 


Due to the unpredictable parameters of the internal pressure 
test, an additional test was required. Realizing the undesirable 
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Figure 3*5: Simulated endplate deformation. 

features of the first test* the second test had to not only be 
indicative of the conditions due to operation but also it had to 
be easily simulated. These two restrictions were satisfied by a 
simple tensile test. Even though the test would not actually 
simulate pressurization* the stresses incurred would be similar 
in various regions. Combinations of bending* membrane* and 
shearing actions would stress the model much like operating 
condi tions . 

To perform this test* the housing was obtained from NASA. 
Two devises were made (see figure 3.6) which enabled the housing 
to be tested using the University's Tinius Olsen testing machine. 
As seen in figures 3.7 and 3.8* the housing was loaded in two 
directions. Results were obtained by using the strain gage 
rosettes mounted by NASA. Loads were incremented until enough 
strain (15 micro) was acquired to overcome any errors involving 
gage sensitivity. By carefully monitoring each rossette* 
permanent deformation was avoided. Also* to aid in simulation* 
the FEM's global axes were placed on the housing. 
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Figure 3.6: Illustration of devises used to test housing. 



Fiyure 3.7 Figure 3.8 

Longitudinal tensile test. Transverse tensile test. 
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Using this as a reference, the loading directions were easily 
obtained. 

The data obtained from performing the tensile test was very 
consistent. Strains recorded were, as seen in figures 3 . 9 - 3.11 
and 3.12-3.14, linear. The strains recorded for the tensile 
transverse test are reported, but due to inconsistencies, they 
were not relied upon for model verification. Furthermore, the 
stresses resulting from these strains were computed and are 
listed in table 1. In this table, principal stresses and 
directions are given, but also stresses are given in the model's 
expected coordinate system explained in appendix 1. 

3.30 SIMULATION OF THE TENSILE TESTS 

Once the results of both tensile tests were recorded and 
analyzed, simulation of the tests was completed. The orientation 
of the global axes during the test was known. From this 
information the longitudinal loading of each model was directed 5 
degrees from the vertical and a Load of substantial magnitude, 
1000 pounds, was applied to each model. Since clearance in the 
bolts was large, loading caused the bolts to deform (simulated in 
figure 3.15). Thus, distribution of the load varied. 
Deformation of the bolts applied the load symmetrically across 
the bolt hole's length ,but the effect of the added deformation 
could not be fully modeled. A load distributed across the bolt 
hole's length was utilized for verification but, in order to 
bracket the actual load application, two other loading 
distributions were Investigated. One, a single point load 
located in the center of the bolt hole's length, and a second, 
which applied equal loads on either end of the bolt hole. The 
actual loading distribution was expected to occur between these 
two extremes. 

To run the test, each model needed to be supported. However, 
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figure 3.10; longitudinal tensile test. 
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figure 3.11; longitudinal tensile test. 

29 





load In pounds load In pounds load In pounds 


location n 




figure 3.12; transverse tensile test. 
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figure 3.13; transverse tensile test. 
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figure 3.14; transverse tensile test. 
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support of the model in the regions around the rosette locations 
would affect the validity of the results. Consequently/ support 
of the model was restricted to being located away from the gage 
locations/ as shown in figure 3.16. In addition/ actual support 
of the model had to inhibit the model as little as possible. 
Although two support systems/ shown in figure 3.17/ were 
utilized/ various support systems were looked into. The first 
type was used primarily in the thin shell models as shown in 
figure 3.17a. It restrained all the degrees of freedom of one 
node. The remaining nodes in the vertical row were able to 
translate vertically and only the vertical rotation was 
constrained. This scheme enabled the model to deform in the most 
natural manner possible. The second type/ shown in figure 3.17b/ 
was designed for the thick shell models since nodal rotations in 
the models could not be restrained. In order to restrict the 
rotation of the model about its vertical axis/ two rows of nodes 
were restrained. 
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A. 00 CONSTRUCTION METHODS AND MODEL VALIDITY 


As mentioned earlier/ the construction of the FEM of the 
housing was done with a series of models. Each model in the 
series utilized construction methods proven by the previous 
models. Initially/ the sequence was to consist of four models: 
a linear thin shell/ parabolic thin shell/ parabolic thick shell/ 
and the final model. However/ as expected/ modifications to this 
plan were required. Mesh sizes/ element types/ and nodal 
configurations were methodically modified until the final model/ 
vaguely introduced in chapter 2/ was constructed. By utilizing 
this sequence/ convergence was checked and overall confidence in 
the model was gained. Thus/ when it was completed/ the final FEM 
not only accurately simulated the housing/ but it also possessed 

a firm modeling founoation. In the next segments the 

construction methods and results of each model in the sequence 
are presented. 

4.10 CONSTRUCTION OF THE LINEAR THIN SHELL MODEL 

As the first model of the construction sequence/ the linear 
thin shell model was to be a simple FEM of the housing. Since 
simplicity was to be its greatest attribute/ the model was 

constructed using elements with linear nodal configurations. 
This made the model*s size a modest 9200 degrees of freedom. 
Furthermore/ as seen in figure 4.1/ the actual geometry 
construction was not complicated. Thin shell elements were 
utilized for the inner and outer shells/ thus/ only the middle 
surface of either shell needed to be defined. In addition/ 

certain pieces of geometry were not Included. Since it was 
believed that the regions where the strain gage rosettes were 
located would not be affected by the placement of the spark 
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plugs/ engine mounts/ and both ports / this geometry was not 
modeled. Also/ it should be noticed that the bolt holes were not 
modeled either. The significance of the bolt holes was 
considered to be negligible. However/ in an endplate interaction 
study the significance of the bolt holes must be considered due 
to the tolerance of the bolts. Simplicity was further gained by 
using a mesh size that was uniform and considered coarse. 
Refinements of the mesh would be considered if necessary. 

As construction of the linear thin shell model began/ 
modeling methods materialized. Problems that arose were 
subsequenti al ly solved by employing new methods. Of the problems 
encountered/ only one major difficulty stood out/ this was 
compatibility between solid and thin shell elements. Since solid 
elements do not support nodal rotations/ a compatibility problem 
was introduced whenever thin shell elements were to be modeled 
with solid elements. This particular problem occurred in two 
regions of the linear thin shell model. In these regions/ the 
solution used was similar. Both utilized a method in which 
certain nodes were coupled together. By coupling these nodes/ 
the translational degrees of freedom of the associated nodes were 
forced to move together. It must be noted here that the nodal 
rotations of the thin shell elements were not affected by this 
coupling. Thus/ moments could not be translated across the 
elements in question. Although this method seemed adequate/ it 
did not mcdel the regions exactly/ so doubts were raised on its 
accur acy. 

Both regions in question were located around the primary 
ribs. The first being where the inner and outer shells connected 
to a primary rib. In order to model this particular region/ two 
fully closed cylinders were constructed. The solid ribs were 
then placed between the two shells. By defining common meshes/ 
coincident nodes were assured. These nodes were then coupled 
creating a "spot welded" effect. Figure A. 2 illustrates this 
construction technique. 

In the second region/ where the mid-plane stiffeners connect 
to primary ribs/ the coupling method was used in much the same 
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FIGURE 4.3: ILLUSTRATION OF 

MID-PLANE STIFFENER LOCATION. 
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manner. A common mesh produced coincident nodes which were then 
coupled. However^ as can be seen in figure 4.3/ the major 

support of this region originated from the intersection of the 
stiffener 3rd the inner and outer shells. 

As stated/ the accuracy of these modeling techniques was 
doubted. Since rotations of the thin shell elements in these 
regions was possible/ deformations as seen in figure 4.4/ could 
occur. Yet/ the effect of such deformation was not known. 
Clearly/ this effect was negligible for the mid-plane stiffeners 
since the expected loading direction would not produce undue 
deformation. Only if a pressure load/ normal to the stiffeners' 
surface/ were modeled would the effect be noticable. However/ 
the deformation of the inner shell was not expected to be closely 
simulated by the coupling techniques. 

Actual construction of these regions required that the inner 
and outer surfaces be made with a number of small segments. A 
segment would occur at each primary rio and associated cooling 
channel. This scheme would assure the existence of common 
meshes. To accomodate this/ a number of construction points were 
required. A numerical routine was developed to provide 
consistent placement of these points. After the wire frame model 
was built the surfaces and volumes were defined such that tv 
surfaces existed at every rib location. From this/ two 

continuous shells and a number of primary ribs were made. A 
further requirement was the use of an even number of elements in 
the housing's axial direction. This last restriction assurea 
coincident nodes for the mid-plane stiffeners. Other than this 
restriction/ the mesh configuration was optional/ therefore/ a 
simple uniform mesh was chosen. Due to the cylindrical shape of 
the housing/ SUPER'S wavefront optimization routine performs 
very poorly. Thus/ to optimize the elemental wavefront of the 
model/ the element numbering must procede in a radial fashion. 

The expectations for the linear thin shell model were 
limited. It was hoped that insight into the stressing mechanisms 
of the housing could be gained. Furthermore/ f ami larization with 

the 
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FIGURE 4.4: ILLUSTRATION OF POSSIBLE 

DEFORMATIONS BY UTILIZING THE 
COUPLING METHOD. 
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modeling system was anticipated. The compatibility problem/ as 
well as the fact that linear thin shell elements could not model 
shearing actions/ was expected to cause the stresses at locations 
X and N to be off the measured values. However/ under 
longitudinal loading/ location H was expected to model the 
experimental values quite closely since only a simple uniaxial 
load would be in play. Overall/ the linear thin shell model was 
expected to provide an initial step in the construction sequence. 

4.11 ANALYSIS GF THE LINEAR THIN SHELL MODEL 


After its completion/ the linear thin shell model was 
subjected to the longitudinal tensile test described in chapter 
3. As also mentioned in chapter 3/ the loading distribution was 
analyzed. However/ after analysis/ it was determined that the 
actual loading distribution had little effect on the regions 
around strain gage rossettes. Thus/ verification was completed 
by simply distributing the load across the bolt hole's length. 
Furthermore/ various supporting methods were also applied. 
Basically/ three types of supports were examined. Each one 
utilized the restraints described in chapter 3. But/ as seen in 
figure 4.5/ each supported different regions of the housing. For 
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simplicity* the groups will be referred to as support case 1* l, 
and 3 as illustrated in figure 4.5, Results from this testing 
were obtained in the form of deformation plots and nodal 
stresses* For each support case* nodal stresses were compared to 
the experimental baseline data provided in table 1. Also* for 

each case* the particular loading and support of the model was 
confirmed through the use of the deformation plots (refer to 
figures 4.6* 4.7* and 4.8). 

When testing was complete* the results were reviewed. From 
this* two conclusions were drawn. First* high stress gradients 
occurred around each rosette location* thus* comparison of 

stresses would need to be approximated. Second* of the three 
support cases* only case 2 enabled natural deformation of the 
housing to occur. The first of the conclusions is emphasized by 
figures 4.S-4.17. Even though only a few data points are 

available* the stress gradients are obvious. An illustration of 
the strain gage locations* shown in figure 4.18* will aid in the 
i nt re pet a t i on of the grid figures. The approximate rosette 
locations are shown* and the estimated stresses at each location 
are given in table 2. From table 2* the second conclusion can be 
drawn. Clearly* the rosette locations were affected by the 

nearby support of the housing. Consequently* support case 2 was 
chosen for the remaining testing. Finally* close Inspection of 
the results indicated the accuracy of the linear thin shell 
model. Stresses* in each location* matched the measured values 
quite closely. Also* changes in the support cases were very 
easily predicted and* the existence of the stress gradients 
provided proof of the adequacy of the testing used to exercise 
the model. 

4.20 CONSTRUCTION OF THE PARABOLIC THIN SHELL MODEL 


The second model in the construction sequence* the parabolic 
thin shell model* was basically chosen to analyze the mesh 
configuration. Since the same geometry could be utilized* the 
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Table 2: Results from linear thin shell model. 


effect of modifications in the mesh could easily be investigated. 
However/ the performance of the linear thin shell model indicated 
that the need for mesh refinements was limited. Therefore/ the 
major drive behind the construction of the parabolic thin shell 
model was verification of the existing mesh. The introduction of 
parabolic elements provided the capability to model shearing 
actions as well as additional data points. 9oth of these 
features were expected to produce better agreement with the 
measured values. Furthermore/ although stresses were expected to 
be slightly higher than those obtained previously/ similar 
results were anticipated. 

4.21 ANALYSIS OF THE PARABOLIC THIN SHELL MODEL 


With the use of the same geometry/ construction of the 
parabolic thin shell model was easily completed. When finished/ 
the model was similarly subjected to the longitudinal tensile 
test. Support of the housing was achieved by utilizing support 
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case 2, In addition* results were obtained in the sane manner as 
before. As in the linear model* high stress gradients occurred 
around each rosette location. The results resembled the 
gradients obtained with the linear model. These results are 
shown in figures 4. 23-4.22* and the approximated stresses are 
listed in table 3. Also* loading and support of the model was 
confirmed through the use of the deformation plot shown in figure 
4.19. 

The concurrence of the parabolic thin shell model's results 
to the results from the linear thin shell model proves 
convergence of the mesh used. Furthermore* the expected slight 
increase in the stresses obtained* furnishes added confidence in 
the model's accuracy. Therefore* at this point in the study* it 
was felt that the structural characteristics of the housing were 
modeled quite adequately. 
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Figure 4.19: Deformation of the parabolic thin shell 

model subjected to a 1000 lb. tensile load 
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4.30 CONSTRUCTION OF THE PARABOLIC THICK SHELL MODEL 


Once the adequacy of the modeling techniques used was 
confirmed* construction of a model that could support a thermal 
analysis was needed. The third model* the parabolic thick shell 
model* encompassed this requirement. With the introduction of 
the parabolic thick shell model* shown in figure 4.23* the 
configuration of the FEM of the housing approached the form that 
was introduced in chapter 2. In this model* SUPEFB's thick shell 
elements replaced the thin shell elements previously used to 
model the inner and outer shells. The remaining geometry* 
however* continued to utilize the same element types. Also* the 
same mesh configurations were employed. 

Construction of the parabolic thick shell model was 
noticebly more complicated than the thin shell models* due to the 
fact that 2-D representations of the inner and outer shells were 
required. Once more* the spark plugs* engine mounts* and both 
ports were not modeled. The mesh size remained the same and 
construction methods were unchanged. However* one major problem 
surfaced after analysis had begun. Although the compatibility 
problems that occurred in the thin shell models were solveo by 
using thick shell elements* the use of these elements produced 
the same problems in the mid-plane stiffener and secondary rib 
region of the thick shell models. Since nodal rotations in these 
regions were no longer supported as they were in the thin shell 
models* deformations* as seen in figure 4.24 * could occur. The 
solution to this problem was quite Innovative. A beam element 
which resisted bending but offered no resistance to uniaxial 
loading was introduced. By "burying" the beams into the thick 
shell and solid elements* as shown in figure 4.25* the stiffness 
of the regions was greatly increased. 

It was anticipated that the outcome of the parabolic thick 
shell model would concur with the previous thin shell models. 
Since the structural qualities of the thick shell elements 
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Figure 4.23: Illustration of the parabolic thick shell model. 
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closely matched those of the thin shell elements# the stresses 
were not expected to be affected. The elimination of the 
compatibility problems around the primary ribs# however# would 
tend to make the model predict the deformation of the inner shell 
more closely. Also# it was predicted that the introduction of 
beam elements would not only provide adequate support in the 
regions invclved# but also their effect on the inner and outer 
shells was expected to be negligible. This later expectation was 
due to the fact that the thick shell elements should 

"classically" deform# planes would remain planes. In conclusion# 
it was felt that the parabolic thick shell model would introduce 
thermal modeling capability but not effect the excellent 
structural modeling capabilities already shown. 

4.31 ANALYSIS OF THE PARABOLIC THICK SHELL MODEL | 

Testing of the parabolic thick shell model was completed in 
much the same manner as the previous models. The longitudinal 
tensile test was applied to the model and support case 2 again 

supported the model. A change in support case 2# however was 

required. The need for this change was described in chapter 2. 
Basically# in order to support axial rotation of the model# the 
translations of two rows of nodes were supported. 

As predicted# the results of the parabolic thick shell model 
agreed with the previous thin shell models'. Displayed in 
figures 4.26-4.28# the stresses were again located in high stress 
gradient regions. The approximated stresses at each rosette 

location are listed in table 4. Comparison with the experimental 
data was quite good. Also# as can be seen in figure 4.29# 

deformation of the housing confirms the loading and support of 
the housing. 
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Table 4: Results obtained from parabolic thick shell model 




5.00 PRESENTATION AND REVIEW OF THE FINAL MODEL 


After the analysis of the parabolic thick shell mocel was 
completed/ it was clear that a structurally sound model of the 
housing/ potentially capable of accurately completing a thermal 
and dynamic analysis/ had been constructed. Thus/ the balance of 
this study included adding the additional geometry previously 
left out: the spark plug and port regions. Furthermore/ 

performance of this model was checked against both experimental 
tensile tests. Finally/ since this is the foundation of a much 
larger study/ documentation on the construction and ability of 
the FEM of the housing is presented. 

5.10 CONSTRUCTION 


Construction of the final FEM/ shown in figure 5.1/ basically 
added the last pieces of geometry to the parabolic thick shell 
model. As can be seen in figures 5. 2-5. 4/ the placement of the 
ports and spark plug holes was not an easy task. Basically/ 
three cylinders and a box were inserted radially in the model 
such that the inner bore and outer shell remained smooth and 
continuous. Placement of this geometry had to not only be 
consistent with the housing’s geometry/ but also/ the meshes used 
had to be compatible with the existing mesh. There was no 
method/ other than monitoring the effect on the rest of the 
housing/ in which the construction could be verified. Thus/ the 
introduction of the spark plugs and port regions proceeded on the 
basis of previous knowledge. 

In order to construct the geometry of the ports and spark 
plug holes so that they would lie on the inner and outer 
surfaces/ a numerical routine was again implemented (appendix 4). 
By utilizing this/ consistent placement of the construction 
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Figure 5.2: Illustration of exhaust port mesh 



Figure 5.3: Illustration of intake port mesh 



? inner bore. 



outer surface, 
i of spark plug region. 
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points was possiple. After the wire frame geometry was 
completed* meshes were put in place. The resulting mesh was* 
again considered coarse and in actuality it consisted of a number 
of smaller meshes. Thick shell elements were employed for the 
port and spark plug walls. However* since the geometry was of 
odd shape* the actual connection between the ports and spark plug 
geometry and the housing was accomplished by using the coupling 
method. In these regions* though* the method did not affect the 
modeling capabilities at all because the elements were of the 
same or similar type and were therefore compatible. 

In reviewing the final FEM's construction* a number of 
features must be noticed. First* the inner and outer surfaces 
were made of segments* one segment for each rib and associated 
cooling charnel* which assured the existence of common meshes. 
Second* intricate geometry such as the bolt holes* rounds and 

fillets* and seal grooves was not included since the effect of 

this geometry was believed negligible. Third* there is an even 
number of elements in the axial direction. Fourth* elements are 
numbered using a radially advancing wavefront. Fifth* a coupling 

sequence for all coincident nodes was completed. Sixth and 

finally* four types of elements were used: parabolic thick 

shell* parabolic thin shell* parabolic solid* and linear beam. 

5.20 PERFORMANCE AND ABILITY 


Performance of the final model was* again* matched against 
the experimental results obtained from the longitudinal tensile 
test. Restraint case 2 was used to support the model. As 
expected* the performance of the final FEM of the housing was 
excellent. From the results displayed in figures 5. 5-5. 7 and in 
table 5* it can be seen that the FEM not only matched the 
experimental data* but also concurred with the gradients 
determined in the previous models. It can also be seen* in 
figure 5.8* that the additional geometry's affect on the 
housing's deformation was minor. However* since a verification 
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method was rot available/ the deformations and stresses in those 
regions must be further investigated. 

With these results/ it was felt that the purpose of tnis 
study had been attained. A structurally sound F EH of a Wankel 
engine center housing had been built and verified. Although it 
is considered to have a coarse mesh, it by no means a small F£M. 
It contains over 29,000 degrees of freedom and has a maximum 
wavefront of 533. It consists of 516 solid, 968 thick shell, 130 
thin shell, and 167 beam elements. Along with the ability to 
perform a static analysis, the Wankel FSM is also capable of 
performing a steady-state thermal and/or dynamic analysis of the 
housing alone. In addition, since the F5M is a SUPERTA9 base 
file, the model can be adjusted into NASTRAN, ANSYS, or SUPERS 
format. With this capability, the limitations to what can be 
performed with this as a base model are few. 
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6.00 CONCLUSIONS AND RECOMMENDATIONS 


The basic result of this study was the presentation of a 
finite element model of a Wankel engine center housing that is 
valid for static loading conditions existing on the housing 
alone. The model performed well and is perceived to be an 
excellent foundation for further study. With the graphical 
preprocessor SUPERT A3 as a base# changes in geometry and material 
can now be analyzed very quickly. Further analysis must be 
completed to verify the thermal and dynamic capabilities of the 
FEM. When completing the dynamic analysis# use of the previous 
thin shell models might be necessary. It should be realized# 
thou 3 h# that a dynamic analysis of the housing alone should be 
completed first. In addition# the construction of the exhaust 
port and spark plug regions should be investigated before a 
thermal analysis is completed. As for completing an analysis on 
the interaction between the endplates and the housing# the actual 
endplates should be modeled. The deformation of the plates as 
well as the clearance in the bolt holes must be considered. The 
internal pressure test presented in this study would provide an 
excellent experimental baseline for such a study. Modeling of 
the preload and pre ss urizati on should obtain sufficient knowledge 
to enable an accurate prediction of the interaction. In 
conclusion# it is believed that all of the studies mentioned 
above can be performed on the F EM presented in this thesis with 
very few modi f icati on s required. 
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APPENDIX 1 

SUPERB FINITE ELEMENT LIBRARY 


A1.00 STRESS OUTPUT (COORDINATE SYSTEM OREINTATION) 

From the nodal displacements computed* SUPERB determines 
stresses and strains at guass Integration points within each 
element* the actual method will be discussed for each element 
type later. These guass point stresses are then extrapolated to 
the elements nodes. Thus* the nodal stress at a specific node is 
an average cf the guass point stresses in the elements that are 
connected to the node. Nodal stresses are reported at each node 
except when a geometric discontinuity is encountered. When this 
occurs* guass point stresses are reported in the elements near 
the discontinuity. Furthermore* for thin shell elements* nodal 
stresses are reported at the top* middle* and bottom surfaces at 
each node. Typical stress outputs are shown in figures A 1 • 1 * 
Al .2* and A1 . 3. 

Stresses can be reported in at least three different 
coordinate systems: global* local* or elemental. The global 

system refers to the coordinate system in which the geometry and 
nodal coordinates are defined. The local and elemental 
coordinate systems are defined by each element. Nodal stresses 
are reported in the global (G-STS)* or local (L-STS)* coordinate 
systems while the guass point stresses are reported in the 
elemental coordinate system. Exceptions to this are found when 
two different element types are connected (9). 
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Figure A1.1: Typical thin shell element stress output* 
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Figure A1.3: Typical solid element stress output* 

A 1 - 1 0 THIN SHELL ELEMENT 


As seen in figure A1.4, three basic nodal configurations are 
available with the thin shell: linear (4-node)/ parabolic 

(8-node) / and cubic (12-node). Various transition elements are 
also available to aid in modeling. Each node of a thin shell 
element is assigned six degrees of freedom (3 translations and 3 
rotations) and is used to define the element's middle surface. 
Thus/ the element is capable of modeling bending and and membrane 
actions. Also/ the parabolic and cubic elements are capable of 
modeling deformations due to shearing forces/ where as the linear 
elements are not. In addition to this/ each element can be 
assigned isotropic or orthotropic material properties. In 
computations the stress normal to the element's middle surface 
(sigma-z) is assumed zero. Nodal stresses are reported at the 
top/ middle/ and bottom surfaces at each node. The top and 
bottom surfaces of a thin shell element are defined by the 
element connectivity as shown in figure A1.5. 
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Figure A1*4s Various thin shell elements available. 

(Courtesy of SDRC) 



Figure A1 .5 : Thin shell surface definition. 

(Courtesy of SDRC) 
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Figure A1.7: Elemental axis orientation. 

(Courtesy of SDRC) 


Continuing/ the elemental X-axis is tangent to the element*s 
middle surface and perpendicular to it's second side as defined 
by the element's connectivity. The element Y-axis is also 
tangent to the element's middle surface but is perpindi cular to 
it's third side. The elemental coordinate system is displayed in 
f i gur e A1 . 7 . 

A1.20 THICK SHELL ELEMENT 


As seen in figure A1.8/ the thick shell element is 

constructed using brick type geometry. Each node of the element 
is assigned three degrees of freedom/ all translational/ and as 
in the thin shell element the stress normal to the element's 
middle surface (sigma-z) is assumed zero. In addition/ as in the 
thin shell element/ the thick shell elements can be assigned 
isotropic or orthotropic material properties. The nodal 

configurations which are available include the linear (8-node)/ 
parabolic (16-node) / and cubic (24-node)/ and various transition 
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Figure A1.8: Various thick shell elements available* 

(Courtesy of SDRC) 
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elements. It is capable of modeling membranes bending and 
shearing actions. Furthermores heat transfer can occur through 
any of its six faces. Thus/ the thick shell element is capable 
of modeling a steady-state temperature distribution through its 
thickness. As with the thin shell elements/ the top and bottom 
surfaces are defined by the element connectivity as illustrated 
in figure A1.9. The local and elemental coordinate systems are 
also defined in a similar manner as the thin shell element. 
Nodal stresses are given in the local coordinate system 
(exceptions are given in reference 9). 



Figure A1.9: Thick shell element surface definition. 

(Courtesy of SDRC) 


A1.30 SOLID ELEMENT 

As with the thick shell elements the solid elements shown in 
figure AI.ICs uses 3-D "brick” geometry to describe itself. Each 
node is assigned 3 degrees of freedoms all translational/ and can 
use isotropic or orthotropic material properties. The solid 
elements as determined by the benchmark study/ is fully capable 
of modeling uniaxial loading. However/ a number of elements are 
required for adequate modeling of bending actions. In additions 

ORIGINAL PAGE IS 91 

OF POOR QUALITY 



the solid element can model thermal distributions extremely well/ 
since heat transfer can occur through each face of the element. 


A 1 . 40 BEAM ELEMENT 

The final element type utilized was the beam element. 
Although each beam element possesses the ability of being linear/ 
tapered/ or curved/ only linear beam elements were used in the 
modeling of the housing. Each node of the beam element supports 
6 degrees of freedom (3 translation and 3 rotation). Thus/ it is 
compatible with the thin shell element. By specifing no cross 
sectional area and large moments of inertia/ a beam/ extremely 
rigid to bending forces but able to offer no resistance to 
uniaxial loading can be obtained. Thus/ the beam element was 
used primarily in stiffening the areas around the secondary ribs 
and mid-plane stiffeners. In conclusion/ even though thermal 
capabilities are available/ utilization of them was not 
neces sary . 
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Various solid elements available. 

(Courtesy of SDRC) 
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APPENDIX 2 

ELEMENT BENCHMARK TESTS 


In order to determine the capabilities of the element types 
available to model the housing/ a benchmark study was completed 
for each type of element. Tests were devised to exercise the 
element's under loading conditions similar to those expected in 
the housing. Since the housing would be subjected to bending/ 
membrane/ and shearing actions/ the shell elements were subjected 
to these types of loadings and their capabilities were 
determined. Various mesh sizes and aspect ratios were used and 
exact solutions were found to determine convergence and accuracy. 

A2.00 SHELL ELEMENT TESTS 

Two tests were devised to exercise the shell elements 
available. The flat plate was constructed as a thick/ short 
plate to introduce a shearing action of substantial magnitude. 
Both tests were constrained on two opposing sides while the 
remaining two sides were left free. 

An exact solution was found in reference (10) (see appendix 
3) for a flat plate simply-supported on two opposite sides and 
free on the remaining two sides. Due to the way the thick shell 
elements are constructed/ though/ only the thin shell elements 
were tested against the exact solution. The simplysupported 
sides were then clamped and the thick shell elements were tested 
against the thin shell elements. This method insured that the 
same boundary conditions were applied to each element type. 
Furthermore/ the exact solution did not account for deformation 
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Table 6: Results from plate test. 



EXACT 

(12X12) 

8-NODE 

THICKNES 

STRESS-X 

STRESS-Y 

STRESS-X 

STRESS-Y 

0.4 IN 

8949 

970 

8986 

642 

0.2 IN 

35800 

3882 

35820 

3 1 93 

0.1 IN 

143200 

15530 

143100 

1 4 1 1 0 


STRESSES GIVEN IN PSI 


Table 7: Results from plate test (thickness reduced). 
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ITEM 

BEAM RESULTS 

EXACT 

(4X1X1) 8-NODE 

-1851 

-5695 

(4X2X1) 8-NODE 

-1774 

-5695 

(4X1X1) 20-N0DE 

-5800 

-5695 

(4X2X1) 20-N0DE 

-5900 

-5695 


STRESSES GIVEN PSI 


Table 8: Results from beam test. 
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ITEM 

COLUMN TEST 

EXACT 

(4X1X1) 8-NODE 

-500 PSI 

-500 PSI 

(4X1X1) 20-N0DE 

-500 PSI 

-500 PSI 


STRESSES GIVEN IN PSI 


Table 9: Results from column test 







APPENDIX 3 
EXACT SOLUTION FOR 
BENCHMARK TESTS 


In reference (10)/ a series solution for a flat plate 
simply-supported on two opposing sides ano free on the remaining 
two was found. By applying this solution to the benchmark plate 
geometry/ accuarcy of the plate elements were checked. It must 
be noted/ though/ that this solution does not include shear 
deformation effects. 


Sor 




Where/ 
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Where w is the displacement normal to the plate's surface. 
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Thus* by implementing the necessary parameters* 

a = 2 .68 in. b=1 .5 in. 

E=30x1 0 psi v =0.3 

p =500 psi 

the solution was obtained. 
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APPENDIX 4 

NUMERICAL ROUTINES USED 
IN 

FEM CONSTRUCTION 

Two routinesw were required to aid In construction of the 
FEM. The first was necessary to place points on the trochoioal 
bore at a specific angle relative to the outer shell's center of 
radius. This requirement is shown in Figure A4.1. 



Figure A4.1: Illustration of the construction point placement. 

In order to accomplish this a iteration routine was devised 
to solve equation 4.1: 

Eq. 4.1: a = sin' 1 [ (ecos3a ± Rcosa)tan<E + P - esin3ai 

A second routine was needed to find the X coordinate of the 
trocnoidal bore given any Y coordinate. Thus/ the second routine 
solved Equation 4.2: 

Eq. 4.2: a = sin-l[[i][y - esin(3a)]J 
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Abstract 


This thesis documents the development of a specialized pre- 
processor that will generate a finite element model of different rotary 
combustion engine center housing geometries. The specialized pre- 
processor has been written to be used in conjunction with General 
Electric’s Computer Aided Engineering software, specifically, 
IDEAS. The only user-supplied inputs required by the specialized 
preprocessor are easily measured parameters that describe the center 
housing geometry. 

When executed, the FORTRAN coded specialized preprocessor 
creates two files • a universal file and a program file. The universal 
file contains data in universal format that describe' the housing ge- 
ometry. Universal format is a standard that has been defined by 
General Electric's Computer Aided Engineering. The program file 
contains commands that are understood by the programmability al- 
lowed within IDEAS. The commands guide the algorithms in 
IDEAS through the generation of the meshes, nodes, and elements. 
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CHAPTER Is Introduction 


The Rotary Combustion Engine (RCE) was first introduced in the early 1950's by 
Felix Wankel. a German inventor (Figure 1). 
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Figure 1. Rotary Combui tion Engine 


^“The RCE is an internal combustion engine which consists ot three major components 
rotor, center housing and end plates. The end plates are bolted to each side of the center 
housing. The triangularly shaped rotor is located in the trochoidallv shaped chamber of 
the center housing (Figure 2). 
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The rotation of the rotor causes different sized chambers to be created between each face 
of the rotor and the trochoidal surface. It is in these chambers that the different phases 
of the Otto cycle • intake, compression, combustion and exhaust - are executed 
(Figure 3). One Otto cycle is executed by each face of the rotor every revolution (i.e. 
three complete Otto cycle are executed per rotor revolution). 


1.1 Rotary Combustion Engine Center Housing Geometry 


A prominent feature of the center housing geometry is the trochoidal shape of the 
inner surface. The generation of this shape is accomplished by first constructing an 
epitrochoid. By definition, an epitrochoid is the locus of points created by a point on the 
radius of a circle which rolls without slip around a base circle. The familiar two-lobed 
epitrochoid is obtained when the base circle is equal to twice the rolling circle (Figure 4). 
The dimensions needed to describe the epitrochoid are the l.ase circle radius, the rolling 
circle radius (one half of the base circle radius) and the di.-t.mce of the generating point 
from the rolling circle's center, the eccentricity. 

The epitrochoidallv shaped inner bore of the center housing is constructed so that 
the rotor, when inserted, will create line contact at all three apexes. To enhance the 
sealing capacitv between the rotor apexes and epitrochoidal surface, seals are placed at 
the apex of each rotor (Figure 5). To account for the extra space required by the seals, 
the epitrochoidal surface has to be expanded. The expanded curve is called a trochoid. 
During operation, the motion of the center of the radius of the apex seal traces an 
epitrochoidal curve and the motion of the apex seal tip traces a trochoidal curve. 

The trochoidal shape is derived from expanding the epitrochoid a perpendicular 
distance equal to the radius of the apex seal. A family of curves can be created by spec- 
ifying different magnitudes of the perpendicular distance (Figure 6). 
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Figure 3. The execution of the Otto cycle in the RCE 










Figure 4. Generation of the Epitrochoid 


Ansdale (1) gives the rectangular coordinates of any point on the trochoidal surface as: 


x = E x cos(3a) + R x cos(a) + A x cosia + 0) 


y = E x sin(3a) + R x sin(a) + A x sin(a + 0) 


where E is the eccentricity, R is the radius of the generating circle, A is the perpendicular 
distance between the epitrochoid and trochoid, and theta is the angle of obliquity. Theta 
is defined bv: 


0 = cos" 


(R + 3 x cos(2 x a)) 

,V 9 xE‘ + R* + 6xExRx cos(2 x a) 



Theta is a measure of the angle, relative to the normal of the trochoidal curve, that the 
apex seal rotates through during operation. Theta is a minimum at the major and minor 
axes and reaches a maximum value midway between the two axes. 


1.2 Rotary Combustion Engine Development 

After Felix Wankel persuaded an obscure German motorcycle and small car man- 
ufacturer, NSU, to help develop the RCE, many other companies, including General Mo- 
tors, Porshe, Rolls Royce, Curtis- Wright and Toyo Kogyo, have attempted to make the 



Figure 5. Rotor with Seal* 




Figure 6. Generation of the Trochoid 


RCE's actual performance characteristics approach its theoretical possibilities. To date 
in the automotive industry, Toyo Kogvo's Mazda RX7 is thr only production automobile 
still using the RCE. 

During its initial development, the RCE was hailed as the engine of the future that 
would replace the reciprocating piston engine (RPE). In many areas, the RCE has better 
performance characteristics than its RPE counterpart. For RCE and RPE engines of 
comparable power output, the RCE has less than half the weight, is almost half the size, 
produces less noise and vibration, and uses less than half the moving parts (2). But the 
RCE is plagued with a 12% higher specific fuel consumption and higher exhaust emissions 
(3), These are two of the major problems that have prevented the RCE from living up 
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to its early expectations. 


1.2,1 Major Sources of Problems in the Development of the RCE 


The major sources of the problems preventing the widespread acceptance of the RCE 
elude: 

1. When combustion pressures are high, imperfect sealing of the apex seal on 
the trochoidal surface will permit leakage into the leading and 'or trailing 
chamber. The leakage, because it comes from the hydrocarbon-rich end of 
the combustion chamber, leads to higher hydrocarbon emissions (4). 

2. Residuals are the fraction of the gasses remaining in the combustion cham- 
ber at the end of the exhaust cycle. The residuals mix with the incoming 
air fuel mixture diluting it largely with inert gasses. The residuals cause 
cycle-to-cvcle variations in the combustion mixture ;5). 

3. At high operating speeds, the apex seal is subjects. I to a high contact force 
from the trochoidal surface. The friction forces, roulting from the contact 
force, cause excessive wearing of the apex seal. As the apex seals wear, more 
leakage is allowed into the leading and/or trailing chambers (6). 

4. About forty percent of the combustion chamber surface is on the rotor. The 
balance is on the trochoid. A layer of unburned hydrocarbons is formed on 
these surfaces as the flame front is quenched by these relatively cool sur- 
faces. These unbumed hydrocarbons contribute to the high exhaust emis- 
sions (7). 


1.2.2 Modifications of the RCE 


lo an effort to enhance the operating conditions of the RCE nt.ny modification, 
have been proposed. Some of the significant modification, include: 


1 . 


' ow , r Pr ° V ' ,h ' S ' al to the trochoida! surface 

crowning of the apex seal in the radtal direction was applied ,8). Although the 

"'’"(‘nil CP T Jy thl " y miC^0 " , • i,s effect "he brake mean effect pres- 

sure (BMEP) is an increase of two to eight percent (Figure 7). P 



CROWNING 


LENGTH OF APEX SEAL 


Figure 7. 


Crowning of the Apex Seal: 

poses. 


The crowning has been am. I.tied for illustrative pur- 


The shape of the combustion chamber recess and the spark plug location influ- 
ences the amount of residuals (9). By increasing the distance between the two 
SP j r p ugs and altering the combustion chamber recess, the BMEP is increased 
and the brake specific fuel consumption is reduced (Figure 8). 


3. The shape and opening and closing timings of the port, especially the intake 
port, can affect the volumetric efficiency by as much as twenty percent (10). 

4. Stratified charging of the RCE has increased the miles per gallon (MPG) rating 
by as much as fifty percent ( 11 ). (Figure 9 ) 


Currently, there is an effort to develop advanced adiabatic diesel (AAD) engines. 
An AAD engine uses ceramic coatings on critical engine components to allow for higher 
operating temperatures. These higher operating temperatures significantly increase the 
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Figure 8. Spark Plug Spacing and Shapes of the Combustion Chamber 
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engine s MPG rating and reduce certain exhaust emissions. The RCE is well suited for 
conversion to an AAD engine. Its multifuel tolerance allows it to burn diesel fuel and its 
fewer moving parts and simpler configuration make the application of a ceramic coating 
on the necessary components of the RCE easier than on the RPE. 


1.3 Finite Element Analysis Background 

Whenever any modifications or developments of the RCE are proposed, both the 
efficiency derived from these changes and their effect on the structural integrity of the 
engine must be evaluated. Typically, these types of evaluations have been made by 
construction and testing of engine prototypes. Since this construction and testing can 
become very costly, accurate analytical modeling of the proposed modifications can save 
both time and money. Instead of building a prototype engine out of metal, a math- 
ematical model of the engine can be developed using finite elements. 

The Finite Element Method (FEM) is a numerical procedure used for solving dif- 
ferential equations. The method involves dividing a physical continuum into a finite 
number of geometric units, the finite elements. The equations of the properties of the 
individual elements can be assembled using different approaches - direct, variational, 
weighted residuals, or energy balance. By solving these equations simultaneously using 
Gaussian Elimination or a similar method, an approximation of the exact solution can 
be obtained. 

The solution of a general continuum problem by the finite element method follows 
an orderly step-by-step process. The first step of a finite element analysis is to determine 
how accurately the geometry needs to be modeled in order to obtain stresses and dis- 
placements that closely approximate the actual values. This determination is based pri- 
marily on preliminary analysis, previous experience and a physical understanding of the 
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problem at hand. For the center housing, the most significant geometry that was not 
modeled was the bolt holes in the ribs. Bolts are passed through the holes and are used 
to hold the two end plates to the housing. It was determined in a previous study that the 
exclusion of the bolt holes from the finite element model did not significantly affect the 
stress and deformation results (11). Other noncritical geometry, such as the grooves for 
the gaskets, was not modeled because its effect on the results would be insignificant. 

After the geometry is created, it is discritized into subdivisions or finite elements. Before 
the elements can be defined, nodes and meshes are described. Meshes define the bound- 
aries within which the nodes and elements are located. The nodes, specified by spatial 
coordinates, define the elements. Loading and restraint conditions are applied at the 
nodes. Element parameters - number, size and type - significantly affect the accuracy 
of the stress and deformation results. The element parameters that were used to create 
the FEM of the housing were validated in a previous study ( 1 1). 

The final steps in the finite element analysis of the center housing include assuming a 
displacement model, and from that model, deriving the individual element stiffness ma- 
trices. These individual matrices are assembled and then modified to account for the re- 
straint conditions. The matrices were formulated according to the equation: 


{F}=[K]{X} 


( l ,3a) 


where {F} is the column matrix of nodal loads. {K} is the combined stiffness matrix and 
{X} is the matrix of nodal dispalcements. When equation 1.3a was solved, {X} being the 
unknown, the nodal displacements are known. The stresses are derived from the dis- 
placements by using the appropriate solid mechanics equations. 
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1.4 Development of Automatic Finite Element Model Generators 


Due to the complex nature of the RCE center housing geometry, the amount of data 
necessary to create a FEM is enormous. To aid the user in the construction of the FEM. 
data preprocessors, such as IDEAS, have been written. Even with the aid of these pow- 
erful general purpose preprocessors, it can take hundreds of hours to build one model (12). 
This time intensive nature of the FEM creation greatly adds to the cost of the FEM design 
procedure. This can prohibit the analysis of many alternate designs. 

Automated design and optimization programs have been developed to reduce the 
time-intensive nature of finite element model creation. Typically, the programs consist 
of two major components - the controller and the analyzer. The analyzer performs two 
functions. The first function is to accept the user supplied design variables - maximum 
allowable stresses or critical dimensions - that are not altered during the optimization. 
The second function of the analyzer is to calculate the ^tresses and deflections of the 
structure. The optimizer provides input to the analyzer, and based on the results of the 
analyzer, determines what changes should be made to reduce the mass of the geometry 
being optimized. 

The major drawbacks of the optimization programs include the requirement on the 
user to create the initial model and the limitations of the type of geometry applicable for 
optimization. In general, geometries that can be stamped, rather then cast, are better 
suited for automated design. Bennett (13) cites several reasons for this. They include: 
problems maintaining an adequate finite element mesh on boundaries that are varied 
during the optimization, defining general shapes using a reasonable number of design 
^ variables, and imposing the proper constraints so that a realistic design results. Because 
of these restrictions, the automated design and optimization programs are best suited for 
only relatively complex structures that can be modeled with beams, thin shells or a com- 
bination of the two element types. Currently, the programs are used in the optimization 
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of automobile and aircraft bodies. 


1.4.1 Definition of the Specialized Preprocessor 

There is a need to develop a program that can automatically create models of com- 
plex three dimensional geometry with a minimum of user supplied inputs. The current 
automated design and optimization programs are insufficient in that they not only require 
the user to create the initial model, but also prohibit the use of three-dimensional elements 
in the finite element model. This thesis outlines the development of a specialized pre- 
processor (SP) that will reduce the time necessary to create FEM's of different RCE center 
housing geometries. With a minimum of user supplied inputs, the SP will automatically 
generate a finite element model of the specified housing geometry. The automatic opti- 
mization of the model, as in the current programs, is beyond the scope of this thesis; it is 
left up to the user. The SP is designed only to build finite element models of different 
RCE center housing geometries. Being geared towards the building of a specific geom- 
etrv, the specialized preprocessor requires only a minimum knowledge of the system by 
the user. With the automatic capability of the SP significantly reducing the time neces- 
sary to construct the FEM, alternate RCE center housing designs can be analyzed without 
time or cost becoming prohibitive. 

The SP was developed to be used in conjunction with General Electric / Computer 
Aided Engineering's (GE/CAE) graphics package, specifically, IDEAS. The SP is a 
FORTRAN coded program. When executed, the SP creates two different files. The first 
file is formatted such that it can be read by the GE/CAE package. This file contains all 
^ the data necessary to describe the geometry of the RCE center housing. The file is in 
universal format; hence the name. Universal File (UF). The universal format is a stand- 
ard that has been defined by GE/CAE (14-15). See Appendix 1 for an example of a uni- 
versally formatted file. The second file created by the SP contains commands that can 
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be executed within IDEAS. The commands are necessary to guide the IDEAS subrou- 
tines through the generation of the meshes, nodes and elements on the geometry. The file 
uses the programming capabilities within IDEAS; hence the name Program File (PF). 

There were several reasons why it was necessary to write two files - one LF and one 
PF - instead of just one UF or just one PF. The PF was necessary because certain entities 
that are needed to define a FEM, namely the meshes, can not be defined in the UF because 
GE/CAE did not include meshes when they defined this universal format. The PF con- 
tains commands that use the programmability allowed within IDEAS to guide the com- 
plicated algorithms in IDEAS through the generation of the meshes, nodes and elements. 
The UF is still necessary, although limited to defining geometry, because the 
programmability that is allowed within IDEAS is limited to two hundred variables - not 
sufficient to describe the complex geometry of the center housing, but powerful enough 
to guide the algorithms in IDEAS through the generation of the meshes, nodes and ele- 
ments. In summary, the UF is needed to define the geometry, but it can not define the 
meshes, nodes and elements. The PF is needed to define thr meshes, nodes and elements, 
but it can not be used to program the different geometric possibilities of the center hous- 
ing. 
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CHAPTER 2: Universal File Development 


Before the development of the UF is described, the reader should have a good 
understanding of the universal format. For the RCE center housing, six geometric enti- 
ties are required to completely describe the RCE center housing geometry. Thev are 
points, lines, splines, edges, surfaces, and volumes. GE/CAE has established a hierarchy 
that must be followed when describing these geometric entities in universal format. From 
lowest order to highest order entity, the hierarchy is: 

• Points are used to define lines and splines. 

# Lines and splines are used to define edges. 

# Edges are used to define surfaces. 

• Surfaces are used to define volumes. 

As all these geometric entities are being created, they are assigned numeric labels. The 
universal format uses the labels of lower order entities to define upper order entities. As 
examples, two point labels could be used to define a line or six surface labels could be used 
to define a volume. 


2.1 Geometric Entity Definition 

The first step required in the development of the L~F was the decomposition of the 
complicated geometry of the center housing into smaller, simpler components. The most 
fundamental components are the inner and outer shells of the center housing and the space 
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between the shells (Figure 10). These shell components can be combined to form ge- 
ometric building blocks that represents small but repeated sections of the center housing. 
These geometric building blocks are: 

• Ribs. 

• Channels. 

• Intake port. 

• Exhaust port. 

• Spark plug ports. 

By combining the building blocks in different combinations, the complicated center 
housing geometry can be formed. The ribs and channels are the primary building blocks^ 
The majority of the center housing is formed by alternating ribs and channels. The intake 
and exhaust ports exist only once, if at all, in the center housing (in some engine config- 
urations, the intake port is located in the end plates not in the center housing). The spark 
plug ports exist twice. 


2.1.1 Rib Definition 

There are two different types of ribs - normal and recessed (Figure 12). A normal 
rib is defined as the inner and outer shell of the center housing and the material between 
the shells. A rib is designated as recessed when there is a gap between the material and 
the inner shell. This type of rib is used in areas where relatively high temperatures are 
expected - the spark plug region. The increased coolant flow allowed by the recess dis- 
sipates more heat in this area. 
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Figure 10. Fundamental Component* of the Center Housing 








2.1 .2 Channel Definition 


There are two types of channels - normal and stiffened (Figure 13). A normal 
channel is defined as the inner and outer shell of the center housing. There is no material 
between the shells. Engine coolant flows through the vacancy between the shells. A 
channel is designated as stiffened when a thin plate at the midplane of the channel blocks 
the coolant flow. This type of channel is used in areas where relatively large deformations 
and low temperatures are expected - the compression region. The increased stiffness 
caused by the plate decreases the deformations in this area. Figure 1-t illustrates both 
rib and channel types as they may occur in the center housing geometry. 
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normal channel 


stiffened channel 


Figure 13. Modeling of the Two Channel Types 


2.1.3 Bore Insert Definition 

There has been increasing interest in converting the RCE to an A AD engine. To 
accommodate this interest, the SP will, if the user specifies, place a bore insert in the 
center housing. The bore insert could consists of a ceramic based material that reduces 
the heat rejection of the RCE. 

In terms of the definitions of the building blocks of the housing geometry, the insert 
is the addition of a shell on the trochoidal surface. Instead of being defined as one inner 
shell, outer shell, and the material between shells, the rib is defined as two adjacent inner 
^ shells, an outer shell, and the material between the shells. The insert has a similar affect 
on the definition of a channel, (See Figure 14). 
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2.1.4 Intake Port Definition 


The intake port is a hole that runs radially through the center housing. At the in- 
side edge of the center housing the hole is rectangular. At the outside edge, the hole is 
circular (Figure 15). The air and fuel mixture is injected from this port into the 
^ trochoidal chamber of the center housing. The SP has been written so that the intake 
port can be omitted from the center housing geometry. This option has been included 




because in some RCE configurations, the intake port is located in the end plate, not the 
center housing. 


2.1.5 Exhaust Port Definition 

The exhaust port, like the intake port, is a hole in the center housing that runs 
radially through the center housing. The hole is circular at the intersection of both the 
inside and outside edges of the center housing (Figure 16). The residue of the combustion 
process is ejected out of this port. 


2.1.6 Spark Plug Port Definition 

The spark plug ports are, as expected, where the spark plugs are screwed into the 
center housing. Tw r o spark plugs are used in the RCE to make the combustion process 
more efficient thus producing less exhaust emissions. The second spark plug burns some 
of the air fuel mixture not burned by the first spark plug. Like the intake and exhaust 
ports, the spark plug ports are holes that run radially through the center housing 
(Figure 17). 


2.2 Geometric Parameter Definition 

The second step required in the development of the SP was to define the parameters 
that wrould be needed to fully describe the building blocks. In order that these user sup- 
plied parameters are as easilv obtainable as possible, all the data required by the SP can 
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The inputs supplied by the user are: 


# The maximum and minimum diameters of the trochoidal bore. 

# The thickness and axial depth of the center housing. 

# The thickness of both the inner and outer shells. 

# The thickness of the bore insert, (optional) 

# The size, type and location of each rib. 

# The tvpe of each channel. 

# The size and location the intake port. 

# The size and location of the exhaust port. 

# The size and location of the spark plug ports. 

be measured from a drawing of the center housing. All parameter definitions are illus- 
trated in Figure 18. 

A detailed explanation of these parameters can be found in t allowing sections. 

The manner in which the user supplied parameters are defined changes depending 
on which region of the center housing is being constructed. There are two types of regions 
in the center housing - cylindrical and rectangular (Figure 19). In the cylindrical region, 
the inputs are in polar coordinates and in the rectangular region, the inputs are in 
Cartesian coordinates. Different coordinate systems are used so that the different pa- 
rameters can be more easily obtained by the user. 

There is a possibility that a rib or channel lies, not entirely within the cylindrical 
•r rectangular region, but overlaps the two regions. When this overlapping of regions 
occurs, the SP must know what percent of the rib or channel lies in each region. The 
percentage of overlap must be known so that the SP can use the appropriate coordinate 
system - polar or Cartesian - to calculate the point coordinates of the overlapping nb or 
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Figure 19. Illustration of the Different Regions in the Center Housing 


channel. The amount of overlap is calculated from the user supplied leading and trailing 
edge input that defines the location of the ribs and channels. 


The overlap conditions were classified into six categories. 
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The overlap categories are: 


Twenty percent or less of the rib lies in the cylindrical region 
Eighty percent or more of the rib lies in the cylindrical region 
Between twenty and eightv percent of the rib lies in the cylindrical region 
Twenty percent or less of the channel lies in the cylindrical region 
Eighty percent or more of the channel lies in the cylindrical region 
Between twentv and eighty percent of the channel lies in the cylindrical re- 
gion 

Based upon the category that the overlapping rib or channel falls under, the SP calls a 
routine that uses the appropriate coordinate system to calculate the point coordinates 
that lie in the different regions. 


1 . 

2 . 

3 . 

4 . 

5 . 

6 . 


2.2.1 Rib and Channel Input Parameter Definition 


Because there are two different regions, the first input the user must specify is in 
which of these regions the rib lies or whether the rib overlaps the regions. If it is in the 
rectangular region, the y-coordinate of the leading and trailing edges must be specified. 
The x-coordinate is unnecessary because it is required that the ribs must be specified in a 
counterclockwise order starting in the first quadrant. This allows the x-coordinate to be 
defined bv the housing input data. In the cylindrical region, the user must specify the 
angles of the leading and trailing edges of the rib. The last input needed to describe a nb 
is its type - normal or recessed. If a rib is recessed, the user must specify the magnitude 
%f the recess. 

Because the dimensions of the channels are defined by the borders of the ribs, the 
only input that is needed to describe the channel is its type - normal or stiffened. If a 
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channel is stiffened, a thin plate is placed at its midplane blocking the coolant flow. The 
thickness of the plate does have to be input because the plate is modeled with thin-shell 
elements. For thin-shell elements the thickness does not have to be defined by the geom- 
etry. The thickness is, however, defined in the finite element input data tile and it is 
considered in the creation of the element stiffness matrix. 


2.2,2 Intake and Exhaust Port Input Parameter Definition 

In order to maintain a uniformity in the generation of the housing geometry, the 
center housing is initially constructed only with ribs and channels. The intake and ex*_ 
haust ports are then inserted into the channels specified by the user. U hen the ports are 
inserted, thev do not occupv the entire channel; a small portion of the channel remains. 
To define where in the channel the ports are to be inserted ind how much of the channel 
is to remain, the user must specify the leading and trailing angle of the ports at the 
intersection of the outer edge of the center housing (see Figure 20 for an illustration of 
these angles). The outer edge of the housing is chosen because the radius to this edge is 
known; the radius to the trochoidal edge is not. This trochoidal radius must be known 
when the input angles are being reduced into a torm that can be used in the equations that 
calculate the point coordinates of the ports. These angles, as well as locating the port 
within the channel, also define the diameter of the circular end of the port. For the intake 
port, because one end of the port hole is rectangular, the user must specify the length and 
width of the rectangular hole. The last parameter needed to describe the intake or ex- 
haust port is a wall thickness of the port. This input is needed because, in the axial di- 
rection, the ports are not flush with the edges of the housing. The indentation created 
by the port not being flush with the housing is termed the wall thickness of the port. 
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The spark plug can be thought of as a specialized rib: it is a rib that has a hole 
through it. The user has to specify which rib location is to have a circular hole in it and 


the radius of that hole. The user does not have to specify the location of the hole in the 


rib; it is always centered. The program has been written so that any number of spark 
plugs can be specified. Some RCE configurations have one spark plug and others have 
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two. 


2.3 Numbering Pattern* of the Geometric Entities 

The difficulty in developing the UF arises in keeping the program general. All 
possible geometric configurations of the housing must be considered. The different types 
of ribs and channels must be able to be input in any combination. For example, one 
section of the housing might consist of a normal rib joined to a stiffened channel joined 
to a second normal rib while another section of the housing could consist of a different 
pattern of alternating rib and channel types. All possible combinations of the building 
blocks must be accounted for in order that their individual geometric entity label num- 
bering patterns can be written into the UF. The numbering patterns of the geometric 
entity labels result from the order in which the geometric entities are used to create the 
building blocks. The generation order of the geometric entities that was chosen to create 
the building blocks progressed first radially, then axiallv. ind finally angularly. This 
generation order created more repetitive numbering pattens than any other generation 
order. The more repetitive the numbering patterns were, the easier it was to organize 
them into a FORTRAN program (Figure 21 and Figure 22). It is critical that the 
numbering patterns of the entities be regular so that the l'F maintains its ability to gen- 
erate anv user specified housing geometry. 


To minimize the number of different numbering patterns needed to define the 
housing geometry, the ribs and channels were constructed together as nb/channel seg- 
ments. There are three types of rib/channel segments - normal rib/ normal channel, 
normal rib/stiffened channel, and recessed rib/normal channel (Figure 23). Associated 
with each of these three segments is a numbering pattern of the geometric entity labels. 
The user specifies which type of segment they are building and the SP calls the correct 
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Figure 22. Picture# Generated from Numbering Pattern! The top figure is a reference for the the bot- 
tom two figures. The middle figure is points and their labels. The bottom figure i9 the lines 
generated bv the numbering pattern of the point labels. 
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normal rib • normal channel segment 




i 



normal rib - stiffened channel segment 


Figure 23. Illustration of the Three Rib/Channel Segment Type# 




2.4 Reduction & Implementation of Input for Universal File Generation 

The input parameters can be categorized into three types. The first type are inputs 
that can be used directly by the SP, no conversion is necessary. For example, the axial 
depth of the housing is used unchanged to give the x and v point coordinates that are 
calculated by equations 1.1a and 1.1b a z dimension (depth). The second type of input 
is used to set flags in the SP. All the rib and channel type inputs fall into this category. 
For example, since different routines in the SP are used to generate the two rib types - 
normal and recessed - flags have to be used to ensure that the correct routine is called. 
The third and final tvpe of input must be converted into a form that the SP can use to 
calculate the point coordinates of the geometry. For example, the maximum and mini- 
mum diameter inputs that define the trochoidal bore must be converted to the radius and 
eccentricity that are used in equations 1.1a and 1.1b. The following sections outline the 
necessary reductions for the third type of input. 


2.4.1 Housing Dimension Input Reduction and Implementation 

The housing parameters are used to calculate the constants, radius, eccentricity and 
perpendicular distance, that are used in equations 1.1a and l.lb to define the trochoidal 
shape. The maximum and minimum diameters of the housing are used to calculate the 
radius and eccentricity of the trochoidal surface by applying the boundary conditions: 


minimum diameter = radius — eccentricy when a = 90° (2.4.1b) 
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maximum diameter = radius + eccentricy 


when a = 0° 


(2.4. la) 


to equations 1.1a and 1.1b. Note that the perpendicular distance. 'A' in equations l.la 
and 1.1b. was set equal to zero for the generation of the inner edge of the trochoidal sur- 
face. This is why it does not appear in equations 2.4.1a and 2.4.1b. The thicknesses of 
the inner shell, outer shell and the housing that the user supplies define the different per- 
pendicular distances that are used to generate the family of trochoidal curves that de- 
scribe the housing geometry. The last housing parameter, the axial depth, is used to 
project the two dimensional model into three dimensions. 


2.4.2 Cylindrical Region Input Reduction and Implementation 

To define a rib/channel segment that lies in the cylindrical region or overlaps the 
cylindrical and rectangular regions, the user supplies the angles ot the leading and trailing 
edges of the rib. The leading and trailing angles, called phi. are measured from the center 
of the cylindrical region. The cylindrical region, as its name implies, is cylindrical. Be- 
cause it is cylindrical, the center of the region can be located by subtracting the maximum 
y-coordinate of the trochoidal surface from the maximum x-coordinate. The difference 
of the two coordinates is the distance measured along the y-axis between the origin of the 
center housing and the center of the cylindrical region. (Figure 24). 

The maximum y-coordinate is easily determined; it is the radius plus the eccentric- 
ity of the trochoid. The x-coordinate was more difficult <>1 determine. A numerical 
routine was written that, starting from zero and incrementing by one tenth of a degree to 
ninety degrees, would input alpha into equation l.la. The x-coordinates from equation 
1.1b were compared until the largest value was found. Only one quadrant had to be 
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Figure 24. Determination of the Center of the Cylindrical Region 

checked for the maximum x-coordinate since the trochoidal surface is symmetric about 
both axes. 

The input angles, phi, must be converted to the angles, alpha, that are used in 
equations 1.1a and 1.1b. To accomplish this conversion, a numerical procedure was 
written that calculates an alpha, given a phi. The procedure uses the incremental search 
method to trap' the solution between an upper and lower value and the bisection method 
to solve for the root explicitlv. The bisection method solves the equation: 


a = tan(<p) x [(E x cos(3a) +■ R x cos(a)) - (Ex sin(3a) + R x sin(a))] + T (2.4.2a) 




where E and R are the eccentricity and radius of the housing respectively, and T is the 
distance between centers. The bisection method was used because its convergence to the 
root of the equation was not affected by the inflection points that occur in the plot of 
alpha versus phi (Figure 25). So, given an angle phi, a corresponding angle alpha can 
be solved for. Alpha is used in equations 1.1a and 1.1b to solve for the x and y coordinate 
of a point on the trochoidal surface. 

Now. after alpha has been obtained, theta is the only unknown in equations 1.1a 
and 1.1b. Theta is given by: 




After theta is known, the x and y coordinates of the trochoidal surface can be calculated. 
The x and y-coordinates are given a z-coordinate equal to the axial depth to create 
three-dimensional point coordinates. 

Seven different values of phi are needed to calculate the point coordinates that de- 
scribe a rib/channel segment. Two of the seven values of phi come from the leading and 
Y ? trailing angle input. A third comes from the leading angle of the previous rib. The re- 

maining four values of phi are calculated by dividing both the rib and channel into three 
lj equal parts (Figure 26). The seven values of phi are u^ed to calculate seven two- 

dimensional point coordinates on the outside of the housing. The values of phi are con- 
j verted to values of alpha by the numerical routine previously mentioned. The values of 

alpha are used to solve for values of theta and then both the v alues of alpha and theta are 
hi | *■ used to calculate seven two-dimensional point coordinates on the trochoidal surface. To 

create three dimensional model, these fourteen two-dimensional point coordinates (seven 
— | describing the outside edge of the housing and seven describing the trochoidal surface) are 

given a third dimension equal to the axial depth of the center housing. This brings the 
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Alpha degrees 




PHI 7 (USER DEFINED) 


L PHI 6 

l PHI5 

*- PHI 4 (USER DEFINED) 

L PHI 3 
L- PHI 2 

- PHI I (USER DEFINED) 

NOTE. PHI 2 = PHI I ♦ (PHI 4 - PHI l)/3 

PHI 3 * PHI I ♦ 2 (PHI 4 - PHI D/3.0 

PHI 5 = PHI4 ♦ (PHI 7 - PHI 4)/3 

PHI 6 » PHI 4 + 2 (PHI 7 -PHI 4)/3 


Figure 26. UluatTation of the Seven Phi Angle*: In the cylindrical region, seven phi angles are needed 

to define a rib channel segment. 


i 

I 
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total number of points that describe a normal rib - normal channel segment to twenty 
eight. 


Thirty-six point coordinates are needed to describe a rib/channel segment if either 
the rib is recessed or the channel is stiffened. To create the recessed rib, the eight point 
coordinates defining the trochoidal surface of the rib are radially expanded a distance 
equal to the magnitude of the recess. This provides the gap between the rib and inner 
shell that allows for more coolant flow. To create the stiffened channel, the four two- 
dimensional point coordinates defining the trochoidal surface of the channel are given a 
third dimension equal to one half of the axial depth. This defines the bottom spline of 
the stiffening plate in the channel. To define the top spline of the plate, the four point 
coordinates on the outer surface of the center housing are also given a third dimension 
equal to one half of the axial depth. 


2,4.3 Rectangualr Region Input Reduction and Implementation 

If the rib/channel segment lies entirely within the rectangular region, the user sup- 
plies the y-coordinate of the leading and trailing edges of a rib. To calculate the coordi- 
nates of the points on the trochoidal surface, alpha, of equations 1.1a and 1.1b, must be 
known. To solve for alpha, given a y-coordinate, a numerical procedure, was written. 
The procedure uses the incremental search and the bisection method to solve the equation: 


a = E x sin(3a) + R x sin(a) - YCOR (2.4.3a) 

where E and R are the eccentricity and radius of the center housing respectively and 
YCOR is the user supplied y-coordinate. 



Seven y-coordinates are needed to define a rib/channel segment in the rectangular 
region. The seven y-coordinates are obtained in the same manner that was described for 
obtaining the seven phi angles. Two of the seven y-coordinates come from the leading 
and trailing edge input. A third comes from the leading edge of the previous rib. The 
remaining four y-coordinates are calculated by dividing both the rib and channel into 
three equal parts (Figure 27). 

It takes 28 point coordinates to define a normal rib/normal channel segment. The 
labels of the 28 point coordinates are used in groups of two to define 30 lines. The point 
labels are also used in groups of four to define the 16 splines. Each line and spline label 
defines an edge. The edge labels are used in groups of four to define 29 surfaces. The 
surface labels are used in groups of six to define the five volumes of the rib/channel seg- 
ment. It takes 8 more point coordinates, two more lines, two more splines, four more 
edges, and one more surface to define a normal rib/stiffened channel or recessed 
rib/normal channel segment than it does to define a normal rib normal channel segment. 


2.4.4 Intake Port Input Reduction and Implementation 

To define the intake port, the user specifies into which channel the port is to be 
placed, the length and width of the rectangular hole that intersects the trochoidal surface, 
and the diameter of the circular hole that intersects the outer surface. The diameter ot 
the circular hole is defined by the leading and trailing angle ot the edges of the hole (See 
Figure 20). These inputs are used unaltered to calculate the point coordinates that are 
^ used to define the intake port. The first points calculated define the outer edge of the 
center housing. Because the port is oriented horizontally in the housing, the remaining 
points defining the port are calculated by subtracting from the X-coordinates defining the 
outer edge; the Y and Z coordinates remain constant. The distance subtracted from the 
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Y3 * Y I •* 2 (Y I - Y4)/3 


Y5 > Y4 f { Y4 - Y7)/3 


Y6 * Y4 f 2(Y4 - Y7)/3 






X-coordinates is calculated from the user-supplied inputs that define the thicknesses of 
the housing and shells. 

It takes 317 points to define the intake port. The numeric labels of the 317 points 
are used in groups of two to define 768 lines in the intake port. Each numeric label of a 
line defines an edge. The edge labels are used in groups of three or four to define the 396 
surfaces of the intake port. The surfaces are used in groups of five or six to define the 150 
volumes of the intake port. 

Due to the complicated nature of the intake port geometry, irregularly shaped ele- 
ments can be created for a given set of input dimensions. Distorted elements cause the 
finite element analysis to yield erroneous results. To eliminate the possibility of distorted 
elements being created, a critical area was isolated where highly distorted elements were 
likelv to occur if certain input dimensions were used. The critical area was found at the 
bottom edge of the rectangular hole (Figure 28). To prevent the creation of distorted 
elements, the volumes were created at a size where only oik element was placed on each 
volume. This allowed the elements in the critical areas to l*e created with triangular ele- 
ments. The generated shape of the triangular elements wa- easier to control. Although 
distorted elements mav still be created in this area, it is not as probable now that trian- 
gular elements are employed. 
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Figure 28. Critical Area for Distorted Element* 


2.4.5 Exhaust Port Input Reduction and Implementation 


To define the exhaust port, the user specifies into which channel the port is to be 
placed and the diameter of the port. The diameter of the port is defined by the leading 
and trailing angle of the hole {See Figure 20). These inputs are used unaltered to calcu- 
* late the point coordinates that are used to define the exhaust port. The points are cal- 
culated first at the outer edge of the center housing and, working horizontally inward in 
a manner similar to that described for the intake port point calculation, to the trochoidal 
edge. 
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It takes 248 points coordinates to define the exhaust port. The numeric labels of 
the 248 points are used in groups of two to define 585 lines. Each numeric label of a line 
defines an edge. The edge labels are used in groups of four to define the 766 surfaces. 
The surfaces are used in groups of six to define the 108 volumes of the exhaust port. 


2.4.6 Spark Plug Port Input Reduction and Implementation 

To define the spark plug port, the user specifies in which rib the port is to be placed 
and the radius of the port. Even though the spark plug port can either lie within the 
rectangular region or overlap the rectangular and cylindrical regions, the user specifies the 
same inputs. These inputs are used unaltered to calculate the point coordinates of the 
port. 

It takes 168 points coordinates to define each spark plug port. The numeric labels 
of the 168 points are used in groups of two to define 585 lim s. Each numeric label of a 
line defines an edge. The edge labels are used in groups of h>ur to define the 426 surfaces. 
The surfaces are used in groups of six to define the 96 volumes of a spark plug port. 
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CHAPTER 3: Program File Development 


The PF contains the commands that are used to guide the complicated algorithms 
in IDEAS through the generation of the meshes, nodes and elements. The problem en- 
countered with creating the PF is the fact that the programmability allowed in IDEAS 
can not read externally defined variables. An externally defined variable is a v ariable 
that is defined in a program other than that which is currently being executed. This 
means that variables in IDEAS can only be assigned values by IDEAS. An example of 
externally defined variables that IDEAS must know before it can create the PF is the el- 
ement type of a given mesh or the material type of a given element. 

To overcome the limitations of the programmability in IDEAS, an innovative ap- 
proach was used. It involved the using of the FORTRAN program to create the PF. 
The PF that the FORTRAN program file creates, looks exactly like a PF that would be 
created bv using the programmability in IDEAS. The difference being, the FORTRAN 
program has read variables that were calculated in the t F to create the PF. The 
programmability in IDEAS does not have this capability. 


3.1 Mesh Definition 

Before the meshes are defined, the PF must define the type of element to be placed 
on the mesh. Once the element type parameter has been defined, the algorithms in 
IDEAS are set to receive the first command that begins the mesh generation. The first 
command indicates which volume is having a mesh placed upon it. The remaining com- 
mands involve the number and placement of the elements that are to be generated on the 
mesh. (Note that the elements are not generated at this point, but the mesh generating 
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algorithms in IDEAS must know something about the elements before the meshes can be 
generated.) For each surface or volume that is to have a mesh placed on it. the PF con- 
tains a set of commands that indicates which surface or volume is currently having a mesh 
placed on it and the number and placement of the elements on the mesh. For a typical 
geometry, the PF creates approximately 600 meshes. 


3.2 Node and Element Definition 

Before the nodes and elements can be defined, certain parameters must be set. The 
parameters indicate that the nodes and elements are auto numbered by IDEAS and that 
nontriangular elements are to be generated. Also, the material constants - modulus of 
elasticity and poisson's ratio - and the physical properties of the elements must be pro- 
vided. An example of a physical property is the thickness of a thin shell element. Once 
the parameters are set and the meshes are described, the n-.-les and elements can be de- 
fined. The first command in the PF that begins the node and element generation indi- 
cates which mesh is to have the nodes and elements plac' d upon it. The remaining 
commands in the PF set which material and physical properties are associated with the 
nodes and elements being generated. In summary, for each mesh, the PF contains a set 
of commands that indicates which mesh is currently having nodes and elements generated 
on it and which material and physical properties are associated with the nodes and ele- 
ments. For a typical geometry, the PF creates over 3000 elements and 20.000 nodes. 



CHAPTER 4: User's Guide 


The user supplied input needed by the SP were designed to be easily obtainable. To 
obtain the required input, the user needs either a drawing of the housing or an actual hous- 
ing. It should be noted that the user does not have to obtain the input data before he she 
executes the SP. The user can execute the SP and obtain each input as the SP prompts for 
it. 


4.1 Obtaining the Input 

The first input required bv the SP are the maximum and minimum diameters of the 
trochoidal bore. Next the thicknesses of the housing's, inner shell and outer shell is re- 
quired. All of the input can be measured directly off the housing or drawing such as 
Figure 18 on page 27. This input, along with any other input defining length, width or 
depth, must be input in inches. 

Before the user can continue obtaining input data, the center of the cylindrical regions, 
shown in Figure 19 on page 29, must be located. The distance trom the origin, the ge- 
ometric center of the trochoid, to the center of the cylindrical regions is one half of the dif- 
ference between the maximum and minimum diameter. For example, if the maximum 
diameter was 8.0 and the minimum diameter was 6.0, then the distance from the origin to 
the centers of the cylindrical regions would be: 


1.0 = 


( 8.0 - 6 . 0 ) 
2.0 


(4.1) 
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Now that the centers of the cylindrical region has been established, the data describing 
the ribs, channels and ports can be measured and input. The SP requires that the user begin 
the rib/channel input with the rib/channel segment which overlaps the intersection of the 
rectangular and cylindrical region in the first quadrant (see Figure 19 on page 29). The 
data for each remaining rib/channel segment must be input proceeding in a counterclockwise 
direction around the housing. This starting point and counterclockwise direction was cho- 
sen arbitrarily as no point or direction is better than any other. 

The first input needed to describe a rib/channel segment is the region it lies in or 
whether it overlaps the two regions. Each region has been assigned a numeric label. The 

labels have been assigned as follows: 

1. cylindrical region 

2. rectangular region 

3. overlaps the two regions 

To specify a region, the user inputs the appropriate number associated with that region. 
Note that this input in is integer format (no decimal point). 

The second input required to describe each rib/channel segment is the location of the 
leading and trailing edge of the rib. If the rib/channel segment overlaps the two region or 
lies entirely within the cylindrical region, the leading and trailing edges are defined by the 
angle the edges make with respect a horizontal line running through the center of the cy- 
lindrical region (seeFigure 20 on page 32 - all angles must be measured in degrees). If the 
rib/channel segment lies entirely within the rectangular region, the rib is described by the 
^coordinates of its edges. See Figure 18 on page 2 i for an illustration of these inputs. 

The third input required to describe a rib/channel segment is the type of the rib and 
channel. There are three nb types - normal, recessed, or a spark plug port - and there are 
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four channel types - normal, stiffened, intake port or exhaust port. Each rib and channel 
type has been assigned a numeric label. The labels have been assigned as follows: 

1. normal rib 

2. recessed rib 

3. spark plug port rib 

1. normal channel 

2. recessed channel 

3. exhaust port channel 

4. intake port channel 

To specify a certain rib or channel type, the user inputs the appropriate number associated 
with that type. Note that this input in is integer format (no decimal point). 

If the rib or channel is not normal, than input other than the location of the leading 
and trailing edges is required. If the rib is recessed, then th^ magnitude ot the recess must 
be measured and input. If the nb is a spark plug port, then the radius of the port must be 
input. If the channel is an exhaust port, then the radius ot the port must be supplied. The 
radius of the ports is defined by angles similar to those shown in Figure 29. If the channel 
is an intake port, then the length and width of the rectangular portion of the port must also 
be specified. 
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Figure 29. Angle* Defining Radius of the Intake or Exhaust Port 


4.2 Input Data File 

The user has the choice of either answering the prompts as they appear on the screen 
or assembling a data file with all the input. If the user chooses to answer the prompts as 
they appear on the screen, then a data file of these responses will be created. This data file 
can be used on later executions of the SP. If the data file of input exists, then the prompts 
will not appear on the screen; the input needed for the SP will be read from the data file. 
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CHAPTER 5: Conclusions 


The SP will automatically generate a FEM from a minimal number of user supplied 
inputs that describe a particular RCE center housing geometry. The >P. significantly 
reducing the many hours it takes to create a FEM, makes the design process and analysis 
of alternate housing designs more cost effective. Figure 30 and Figure 31 illustrate two 
different FEM's created by the SP. 

The SP consists of'almost 10.000 lines of FORTRAN code. The two files • the UF 
and the PF • that the SP creates, contain a total of approximately 25,000 lines of data. 
The UF consists of approximately 20,000 lines of data that describes the center housing 
geometry. The PF consists of approximately 3000 lines of commands that guide the al- 
gorithms in IDEAS through the generation of the meshes nodes and elements. 

It takes an IBM 4341 computer approximately seven hours to generate the FEM. 
This total execution time is significantly affected by the s\ -tem utilization while the SP 
is being executed. A majority of the execution time - approximately eighty percent - is 
used to generate the nodes and elements. Approximately ten percent of the execution 
time is used to generate the meshes. The remaining approximate ten percent of the exe- 
cution time is used to execute the SP, read the LF and PF. -tore files, and perform other 
miscellaneous tasks. The user does not have to be present during the execution time. 
He; she has only to input the parameters that define the housing geometry and the SP 
automatically generates the finite element model. 

The SP is limited in one key area; the number and placement of the nodes and ele- 
ments is not variable. Two steps can be taken to reduce this limitation. The step first 
involves using the option of exiting the SP at any point during its execution. The gives 
the user the freedom to exit the SP after the generation of the geometry so that the nodes 
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Figurt 31. A second FEM Generated by the SP: Note that there is no bore insert and the location, 

and type of the rib, channel segments is different. 


size 
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and elements can be generated manually. The opportunity to exit the SP at any point 
in the finite element model creation also allows the user to verify that the SP generated 
the desired geometry before the time consuming generation of the nodes and elements 
begins. 

The second and more practical step that can be used by the user to reduce the limi- 
tation of the SP is to use the "add element" capability offered in the IDEAS software. 
The "add element" capability allows the user to create elements from existing nodes. The 
user can use the SP to create a FEM and then use the "add element" capability to refine 
the Finite element mesh in areas of interest. 


References 


\. Ansdale, A. F., The Wankel RC Engine , A. S. Barnes & Company, 1969. 

2. Norbve, J. P., The Wankel Engine: Design Development Applications , Chilton 
Book Company, 1971. 

3. Jones, C. & M. Berkwoitz, "Multifuel Rotary Aircraft Engine," SAE Paper No. 
801237. Presented at AIAA SAE ASME Joint Propulsion Congress, Hartford, 
CT, July, 1980. 

J. Matsuura, K., K. Terasaki & I. Watanabe, "The Behavior of a Rotary Apex Seal 

Against the Trochoid Surface," Bulletin of the JSME, \ ol. 21 No. 161, N ovember 
© 

1978. 

5. Eberle, M. K. & E. D. Klomp, "An Evaluation of th- Potential Performance Gain 
from Leakage Reduction in Rotary Engines." SAE Paper No. « 301 1 < . Presented 
at the International Automotive Engineering Congress, Detroit, MI, January 
10-13, 1973. 

6. Yamamoto, K., K. Kenichi & K. Takashi, "Toyo Kogyo's Research and Develop- 
ment on Major Rotary Engine Problems," SAE Paper No. 700079. Presented at 
the International Congress & Exposition. Detroit. MI. January 12-16, 1970. 

7. Burlev, H. A., M. R. Meloeny & T. L. Stark, "Source- of Hydrocarbon Emissions 
in Rotary Engines," SAE Paper No. 780419. Pre-ented at the International 
Congress & Exposition, Detroit, MI, February 2* - March 3, 19 <8. 

8. Yamamoto, K. & T. Mukoki, "Development on Exhaust Emissions & Fuel Econ- 
omy of the Rotary Engine at Toyo Kogyo," SAE Paper No. *8041*. Presented 
at the International Congress and Exposition, Detroit, MI, February 27 - March 
3, 1978. 


59 



9. Muroki. T., "Recent Technology Development of High-Powered Rotary Engine 
at Mazda," SAE Paper No. 841017. Presented at West Coast International 
Meeting & Exposition, San Diego, CA, August 6-9. 1984. 

10. Jones, C. "An Update of Applicable Automative Engine Rotary Stratified Charge 
Developments," SAE Paper No. 820347. Presented at the International Congress 
& Exposititon, Detroit, MI, February 22-26, 1982. 


11. Bradley. S. "Finite Element Model Development of a Rotary Combustion Engine 
Center Housing." A thesis presented at Michigan Technological Lni\ersitv. 
Houghton, MI, February, 1985. 


12. Krouse. J. K., "Reducing the Labor content in Finite Element Analysis," Machine 
Design, Vol. 19, No. 9, September 8. 1983, pp.64-69. 

13. Bennett. J. A. & M. F. Nelson, "An Optimization Capability for Automotive 
Structures," SAE Paper No. . 909i2. 19 1 9. 

14. "User Manual for Supertab," Structural Dynamics Research Corporation. \ ol l, 
Level 2. 1983. 

15. "Supertab User Manual Supplment," Structural D> mimics Research Corporation, 
Vol 1, Level 2, 1984. 


:] 

Appendix 1: Example of a Lniversally Formatted Data File 

This universal file generates the cube pictured in Figure 32 




rectangular 


color 

coordinates 

— -1 

15 

label 

coordinate system 


1 

0 

0 

11 

-1.00E + 00 -1.00E + 00 O.OOE + OO 

- - 

2 

0 

0 

11 

-9.99E-01 -9.99E-01 4.99E-01 


3 

0 

0 

11 

-9.99E-01 -9.99E-01 9.99E-01 


4 

0 

0 

11 

-9.99E-01 -9.99E-01 1.30E + 00 


5 

0 

0 

11 

-9.99E-01 -9.99E-01 2.00E + 00 


6 

0 

0 

11 

-9.99E-01 -9.99E-01 2.50E + 00 


nodes 


- - 

688 

0 

0 

11 

9.99E-01 

9.99E-01 

7.50E-01 

M 

689 

0 

0 

11 

9.99E-01 

9.99E-01 

1.00E + 00 


690 

0 

0 

11 

9.99E-01 

9.99E-01 

1.50E + 00 


691 

0 

0 

11 

9.99E-01 

9.99E-01 

2.00E + 00 


692 

0 

0 

11 

9.99E-01 

9.99E-01 

2.50E + 00 

* 

693 

0 

0 

11 

9.99E-01 

9.99E-01 

3.00E + 00 


• 1 



-1 

25 


points 

-1 


rectangular 
coordinate system 

label color 


coordinates 


1 0 

2 0 

3 0 

4 0 

5 0 

6 0 

7 0 

8 0 


7 -1.000E + 00 -l.OOOE + 00 0.000E + 00 

7 1.000E + 00 - 1.000E + 00 O.OOOE + OO 

7 l.OOOE + 00 l.OOOE + 00 0.000E + 00 

7 -1.000E + 00 1.000E + 00 O.OOOE+OO 

7 -L.00OE +00 -1.000E + 00 3.000E + 00 

7 1.000E + 00 -l.OOOE + 00 l.OOOE + 00 

7 l.OOOE + 00 l.OOOE + 00 3.000E + 00 


7 -l.OOOE f- 00 l.OOOE +00 l.OOOE + 00 


-l label 
26 

1 

2 

3 

lines 1 

D 

6 

i 

8 


color 

8 

8 

8 

8 

8 

8 

8 

8 


line style 
(solid) 

l 

1 

1 

1 

1 

1 

1 

1 


point label 
start 


a 

6 

7 

8 

5 

6 

7 

8 


point label 
-top 

6 

< 

8 

3 

1 

2 

3 

1 


61 


-[ 


9 

10 

11 

12 


8 1 
8 1 
8 1 
8 1 


1 

2 

3 

4 


2 

3 

1 

I 


.1 label 
29 

1 

1 

2 

1 

3 
l 

4 
l 

5 
1 

6 

ed^M 1 

I 
1 
8 
l 
9 
l 

10 

l 

11 

l 

12 

l 

-1 


entity type 
1 line 

number of entities 2 are 
color deining edge 3 spline 


9 1 1 

1 

9 1 1 

2 

9 1 l 

3 

9 1 1 

4 

9 1 1 

9 

9 1 1 

10 

9 1 l 

11 

9 1 l 

12 

9 1 1 

3 

9 1 1 

6 

9 1 1 

9 7 1 1 

8 


-l 

30 


surfaces 


label 


1 
t 

2 
9 

3 
10 

4 
11 

5 
12 

6 
3 

-l 


line style 
color (dashed) 

1 2 4 

1 2 3 

1 2 1 

1 10 3 

1 2 1 

2 116 

4 2 4 

7 12 3 

1 2 1 

8 9 1 

1 2 4 

6 7 8 


uii in her of edges 
defining surface 

1 

1 

cdiie labels 

1 

1 

1 

1 
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-1 

39 

volumes 

label 

color 

line style 
(dashed) 

number of surfaces 
defining volume 

1 

5 

2 

2 6 

-I 

2 

5 

1 

3 ^ t surface labels 




element type 







label 


parabolic solid 







■ 1 





color 




71 









1 

20 

116 

1 

l 

7 

20 



1 

2 

3 

10 

17 

16 

15 

8 


64 

66 

80 

78 

127 

128 

129 

136 


143 

142 

111 

134 





node labels 

2 

20 

116 

1 

1 

7 

20 


3 

4 

5 

12 

19 

18 

17 

10 


66 

68 

82 

80 

129 

130 

131 

138 


143 

144 

113 

136 





3 

20 

116 

1 

l 

7 

20 



5 

6 

t 

14 

21 

20 

19 

12 


68 

70 

84 

82 

131 

132 

133 

140 


147 

146 

115 

138 





element connectivity 



■ 







58 

20 

116 

1 

1 

7 

20 


547 

548 

549 

556 

563 

562 

561 

554 

610 

612 

626 

624 

673 

674 

675 

682 

689 

688 

687 

680 





59 

20 

116 

1 

1 

i 

20 


549 

530 

551 

538 

565 

361 

563 

556 

612 

614 

628 

626 

675 

676 

677 

684 

691 

690 

689 

682 





60 

20 

116 

1 

1 

7 

20 


551 

532 

553 

560 

567 

566 

565 

558 

61 1 

616 

630 

628 

677 

678 

679 

686 

693 

-1 

692 

691 

684 






• l label 

element type 
parabolic solid 


physical 

property 

material 

property 

74 

1 

116 

1 

1 

l 

2 

116 

2 

l 

1 

3 

116 

3 

1 

l 

elements 

38 

116 

53 

l 

1 

39 

1 16 

39 

1 

l 

60 

1 16 

60 

1 

l 


-1 


63 




Figure 32. Example Model Generated bv the Universal Fiie 

Note that although there are nodes and elements defined in universal format, there are no 
meshes. The mesh data is used to create the nodes and elements. Once the nodes and ele- 
ments are created, the mesh serves no purpose so it is not stored in universal format. 

Note also, that the original universally formatted file contained none of the annotative 
comments. These comments have been added to give the reader a better understanding of 


the format. 



Appendix 2: Example of an Input Data File 


This appendix is an example data file that creates a finite element model of the axially 
cooled rotary combustion engine center housing that was sent to Michigan Technological 
University by the NASA/ Lewis Research Center. 


5.95,3.80 maximum and minimum diameters 

1.00 thickness of housing 

2.68 depth of housing 

0.375 thickness of outer shell 

0.375 thickness of inner shell 

0.25 thickness of bore insert 

3 overlappin region 

-5. 0,2.0 phi 1 and phi 2 of rib edges 

1 normal rib 

2 stiffened channel 

0.75 thickness of first channel 

1 cylindrical region 

47.5.60.0 phi 1 and phi 2 of rib edges 

1 normal rib 

4 intake port channel 

2.0. 23.0 angles defining radius of port 

0.275 wall thickness of port 

1.50,1.50 length and width of port 

1 cylindrical region 

70.0. 80.0 phi 1 and phi 2 of rib edges 

1 normal rib 

2 stiffened channel 

1 cylindrical region 

91.0. 105.0 .... phi 1 and phi 2 of rib edges 

1 normal rib 

2 „ stiffened channel 

1 cylindrical region 

120.0. 130.0 ... phi 1 and phi 2 of rib edges 

l normal rib 
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2 stiffened channel 

1 cylindrical region 

140.0. 130.0 ... phi 1 and phi 2 of rib edges 

1 normal rib 

2 stiffened channel 

1 cylindrical region 

134.0. 156.0 phi 1 and phi 2 of rib edges 

1 normal rib 

2 stiffened channel 

1 cylindrcial region 

160.0. 169.0 ... phi 1 and phi 2 of rib edges 

2 recessed rib 

0.175 magnitude of recess 

3 overlapping region 

176.0. 184.0 ... phi 1 and phi 2 of rib edges 

3 rib is spark plug port 

0.125 radius of port 

2 rectangular region 

0.60,0.05 y coordinate 1 and y coordinate 2 of rib edges 

2 recessed rib 

0.173 magnitude of recess 

2 rectangular region 

-0.33, -1.10 ... v coordinate 1 and \ coordinate 2 of rib edges 

3 rib is spark plug port 

0.25 radius of port 

3 overlapping region 

185.0. 195.0 ... phi 1 and phi 2 of rib edges 

2 recessed rib 

0.175 magnitude of recess 

1 rectangular region 

205.0. 215.0 phi 1 and phi 2 of rib edges 

1 normal rib 

1 cylindrical region 

218.0. 220.0 .... phi 1 and phi2 of rib edges 

1 normal region 

1 normal channel 

1 cylindrical region 

223.0. 235.0 phi 1 and phi 2 of rib edges 

1 normal rib 

1 normal channel 

1 cylindrical region 

239.0. 241.0 phi 1 and phi 2 of rib edges 


1 normal rib 

l normal channel 

1 cylindrical region 

2 45.0,257.0 .... phi 1 oand phi 2 of rib edges 

1 normal rib 

\ nor *al channel 

1 cylindrical region 

262.5,264.5 ... phi 1 and phi 2 of rib edges 

1 normal rib 

\ normal channel 

\ cylindrical region 

271.0. 282.0 phi 1 and phi 2 of rib edges 

1 normal rib 

1 normal channel 

\ cylindrical region 

287.0. 289.0 ... phi l and phi 2 of rib edges 

1 normal rib 

1 normal channel - 

1 cylindrical region 

294.0. 305.0 ... phi 1 and phi 2 of rib edges 

1 normal rib 

\ normal channel 

1 cvlindrcial region 

312.0. 326.0 ... phi 1 and phi 2 of rib edges 

1 normal rib 

\ normal channel 

3 overlapping region 

356.0. 365.0 ... phi 1 and phi 2 of rib edges 

1 normal rib 

3 channel is exhaust port 

340.0. 354.0 ... angles defining radiu? of port 

0.275 wall thickness of port 

4 end prompted input 

1 ... entities to edges generated - continue model generation 

1 ... entities to meshes generated - continue model generation 
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Appendix 3: Examples of Numbering Patterns 


The examples of the numbering patterns contained in this appendix 
are used in the SP to generate the geometric entities - splines, edges, 
surfaces, and and volumes - that are used to define a normal rib 
normal channel segment. 








































































APPENDIX 3.2: Numbering Pattern of the Edges 


line & spline 
labels 


spline 1 


SDline 2 


spline 3 


SDline 4 


spline d 


spline 6 


spline 7 


spline 8 


9 

line 1 

10 

line 2 

11 

line 3 

12 

line 4 

13 

line 5 

14 

line 6 

15 

line 7 

16 

line 8 


spline 9 


spline 10 


spline 11 


spline 12 


spline 13 


spline 14 


spline 15 


spline 16 


line 

9 

line 

10 

line 

11 

line 

12 

line 

13 

line 

14 

line 

15 

line 

16 


Figure 35. Numbering Pattern of the Edge*! this pattern creates a normal rib normal channel segment 
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APPENDIX 3.4: Numbering Pattern of the Volumes 


volume 

label 

surface labels 


sur 1 

mu 

sur 3 

sur 4 

■-UKMB 

issai 

1 

3 

i 

X 

7 

9 

1 

2 

5 

2 

X 

8 

11 

6 

3 

15 

12 

9 

19 

22 

16 

4 

16 

13 

10 

20 

23 

17 

5 

17 

14 

11 

21 

24 

18 


> 

V 


Figure 39. 


Numbering Pattern of tbe Volume*: this pattern creates a normal nb / normal channel seg* 

meat 
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Figure 40. Illuitratioa of the Numbering Pattern of the Volume* 
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Appendix 


C 



generate . fortran 


Fri May 10 14:46:12 1991 


1 


C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 




THIS PROGRAM GENERATES FINITE ELEMENT MODELS OF * 
USER DEFINED ROTARY COMBUSTION ENGINE CENTER * 
HOUSING GEOMETRIES. THE USER IS PROMPTED FOR THE * 
INPUT DATA. THIS PROGRAM WILL OUTPUT SEVERAL FILES. * 
THE FILE CONTAINING THE DATA THE DESCRIBES THE GEOM- * 
TRY IS CALLED "GEOMETRY” . THE FILES CONTAINING THE * 


* COMMANDS THAT GENERATE THE MESHES , NODES AND ELEMENTS * 

* IS CALLED "MSNDEL" . * 

* * 
************************************************************* 




* VARIABLE DEFINITION * 

* * 

* THE VARIABLES THAT BEGIN WITH THE SAME FIRST THREE * 

* LETTERS ARE THE POINT COORDINATES OF THE BORE. * 

* INSERT (AAA - GGG) . THE VARIABLES THAT BEGIN WITH * 

* THE SAME FIRST TWO LETTERS ARE THE POINT COORDINATES * 

* OF THE INNER EDGE OF THE INNER SHELL (AA - GG) . THE * 

* VARIABLES THE BEGIN WITH THE LETTERS (A -G) ARE THE * 

* POINT COORDINATES OF THE OUTER EDGE OF THE INNER * 

* SHELL. THE VARIABLES THAT BEGIN WITH THE LETTERS * 

* (H - N) ARE THE POINT COORDINATES OF THE INNER EDGE * 

* OF THE OUTER SHELL. THE VARIABLES THAT BEGIN WITH * 

* THE LETTERS (HH-NN) ARE THE POINT COORD IANTES OF THE * 

* OUTER EDGE OF THE OUTER SHELL. * 

* * 
★ A*********************************************^^^.^^^^^ 


DIMENSION AIX(IOO) , AIY(IOO) , BIX (100) , BIY (100) , CIX ( 100) ,CIY(100) , 

# DIX(100) ,DIY (100) , EIX (100) , EIY (100) , FIX (100) , FIY (100) ,GIX(100) , 

# GIY(100) , HIX ( 100 ) , HIY ( 100 ) ,IIX(100),IIY(100) , JIX(100) , JIY(100) , 

# KIX(100) , KIY (100) , LIX (100) , LIY (100) , MIX (100) ,MIY(100) , NIX (100) , 

# NIY (100) , AAIX (100) , AAIY (100) , BBIX(100) ,BBIY(100) , 

# CCIX(100) ,CCIY(100) , DDIX (100) ,DDIY(100) ,EEIX(100) ,EEIY(100) , 

# FFIX{100) , FFIY (100) , GGIX ( 100 ) ,GGIY(100) , HHIX (100) , HHIY (100 ) , 

# IIIX(IOO) , IIIY(IOO) , JJIX(100) , JJIY(100) , KKIX (100) , KKIY (100 ) , 

# LLIX(100) , LLIY (100) , MMIX (100 ) ,MMIY(1000) ,NNIX(1000) ,NNIY(100) , 

# DRIX (100) ,DRIY (100) , ERIX (100) ,ERIY(100) , FRIX (100) , FRIY ( 100 ) , 

# GRIX (100) , GRIY (100) , REGION (100) , RSP (10) , PHI ISP (10) ,PHI2SP (10) , 
#AAAIX (100) , AAAIY ( 100 ) , 


GEN00010 

GEN00020 

GEN00030 

GEN00040 

GEN00050 

GEN00060 

GEN00070 

GEN00080 

GEN00090 

GEN00100 

GEN00110 

GEN00120 

GEN00130 

GEN00140 

GEN00150 

GEN00160 

GEN00170 

GEN00180 

GEN00190 

GEN00200 

GEN00210 

GEN00220 

GEN00230 

GEN00240 

GEN00250 

GEN00260 

GEN00270 

GEN00280 

GEN00290 

GEN00300 

GEN00310 

GEN00320 

GEN00330 

GEN00340 

GEN00350 

GEN00360 

GEN00370 

GEN00380 

GEN00390 

GEN00400 

GEN00410 

GEN00420 

GEN00430 

GEN00440 

GEN00450 


#BBBIX (100) , BBBIY (100) ,CCCIX(100) ,CCCIY(100) ,DDDIX(100) ,DDDIY(100) ,GEN00460 
#EEEIX ( 100 ) , EEEIY (100) ,FFFIX(100) , FFFIY ( 10 0 > , GGGIX ( 100) , GGGIY ( 1 00 ) , GEN00 470 
#Y1SP (10) , Y2SP (10) , ISPRK (10) ,PHI1(1000),XX(1000), ZZZ (100) ,RZZZ (100) GEN00480 

GEN00490 

************************************************************* 

* 


THIS COMMON BLOCK CONTAINS THE POINT COORDINATES 
OF THE INTAKE, EXHAUST, AND SPARK PLUG PORTS. 


COMMON / PORT / XI (7) , Y1 (7 ) , Z1 (7 ) , X2 (7 ) , Y2 (7 ) , Z2 (7) , X3 (7) , Y3 (7 ) , 


GEN00500 
GEN00510 
GEN00520 
GEN00530 
GEN00540 
GEN00550 
GEN00560 
GEN 00570 
GEN00580 
GEN00590 


# Z3(7),X4(7) ,Y4(7) ,Z4(7) ,X5(7),Y5(7) , Z5 (7) , X6 (7) , Y6 (7) ,Z6(7) , 

# X7(7) , Y7 (7) ,Z7 (7) ,X8 (7) , Y8 (7) , Z8 (7) ,X9 (7) , Y9(7) ,Z9(7) , 

# XI 0 (7) ,Y10 (7) , Z10 (7) ,X11 (7) , Yll (7) , Zll (7) ,X12 (7) ,Y12 (7) , Z12 (7) , GEN00 600 

# X13 (7) ,Y13 (7) , Z13 (7) ,X14 (7) ,Y14 (7) ,Z14 (7) , XI 5(7) ,Y15(7) , Z15 (7) ,GEN00 610 

# Xl 6 (7) ,Y16 (7) , Z16 (7) ,X17 (7) ,Y17 (7) , Z17 (7) ,X18 (7) ,Y18 (7) , Z18 (7) , GEN00 620 

# XI 9 (7) ,Y19 (7) , Z19 (7) ,X20 (7) ,Y20 (7) , Z20 (7) ,x2l (7) ,Y21 (7) ,Z21 (7) ,GEN00 630 

# X22 (7) , Y22 (7) , Z22 (7) , X23 (7) , Y23 (7) , Z23 (7) , X24 (7) , Y24 (7) , Z24 (7) ,GEN00640 



generate . fortran 


Fri May 10 14:46: 


31 


C 

C 

C 

C 

C 

C 


C 

C 

c 

c 

c 

c 


'# 

# 

# 

# 

# 

# 

# 

# 

# 

# 


X25 (7) 
X28 (7) 
X31 (7) 
X34 (7) 
X37 (7) 
X40 (7) 
X43 (7) 
X46 (7) 
X49 (7) 
X52 (7) 


, Y25 (7) 
, Y28 (7) 
, Y31 (7) 
, Y34 (7) 
, Y37 (7 ) 
, Y40 (7) 
, Y43 (7) 
, Y46 (7) 
, Y49 (7) 

, Y52 (7) 


,225(7) 
,228 (7) 
,231(7) 
,234(7) 
, Z37 (7) 
,240 (7) 
, 243 (7) 
, Z46 (7) 
, 249 (7) 
,252(7) 


, X2 6 (7) 
, X2 9 ( 7 ) 
, X32 (7) 
, X35 (7) 
, X38 (7) 
, X4 1 (7) 
, X44 (7) 
, X47 (7) 
, X50 (7) 

, X53 (7) 


, Y26 
, Y29 
, Y32 
, Y35 
, Y38 
,Y41 
, Y44 
, Y47 
, Y50 
, Y53 


c :o 
(7) ,229 

(7) , Z32 
(7) , Z35 
(7) , Z38 
(7) ,Z41 
(7) , Z44 
(7) , Z47 
(7) , Z50 
(7) , Z53 


(7) , X27 
(7) , X30 
(7),X33 
(7) , X36 
(7) , X39 
(7) ,X42 
(7) , X45 
(7) , X48 
(7) , X51 
(7) 


(7) , Y27 (7) 
(7) , Y30 (7) 
(7) , Y33 (7) 
(7) , Y36 (7) 
(7) , Y39 (7) 
(7) , Y42 (7) 
(7) , Y45 (7) 
(7) , Y48 (7) 
(7) , Y51 (7) 


, Z27 (7) 
,230 (7) 
,233(7) 
,236(7) 
,239(7) 
,242 (7) 
,245 (7) 
, 248 (7) 
, 251 (7) 


C 

C 

c 

c 

c 

c 


COMMON / MA1N2 / CNLTYP (100 ) , RIBTYP ( 100) , NPTEP (7) NPTIP m 
# , NPTSP (7 ) , NPTTL, ISP, IVOLR(25) , IVOLC (25) , TCHNL, CCC 

COMMON / SUB / ICONTI 

CHARACTER STRING*40, FI LEI *40 , NAME* 40 

* In T I fe INTEGER STATEMENT CONVERTS THESE REAL VARI- * 

ABLES INTO INTEGERS SO THAT THEY CAN BE USED AS * 

COUNTERS 

★ * 

INTEGER PT1, PT2, PT3, PT4, RIBTYP, CNLTYP, REGION, SDC, 

# S0LID ' C0L0R ' START, STOP, COUNT, SPLINE, 
SPENTC, LNENTC , DASH, GRADE, SURFAC, EDI, ED2,ED3 ED4 

# SURrsURB R EDGE R pMT^ R3 ' SUR4 ' SUR5 ' SUR6 ' p HCHCK,' SLSLVR, 

# SURT, SURB, EDGE, PNTT, PNTB, STATUS 

************************^,^^^^^^^^^^^^^^^^ 

* STATEMENT CONVERTS THESE INTEGER VARI- * 

* ABLES INTO REALS SO THAT THEY CAN BE USED TO AS * 

* ARRAYS TO HOLD THE POINT COORDINATES * 

REAL IIX, IIY, IIIX, IIIY, JIX, JIY, JJIX, JJIY, KIX, KIY 

# KKIX, KKIY, LIX, LI Y, LLIX, LLIY, MIX, MI Y MMIx/Sy 

# NIX, NIY, NNIX, NNIY, LINPT ,«nix,MMIY, 

* TH Smi U ! CTI ° N STATEMENTS CALCUALTE RECTANGULAR l 


POINT COORDINATES GIVEN TEH REQUIRED ANGLES 


XXX (Z, BETA) =Z*CO S (BETA) 

YYY (ZZ, BETA) =ZZ*SIN (BETA) 

FNX (GAMMA) =EE*COS (3 . 0*GAMMA) +RR*COS (GAMMA) 

FNY (GAMMA) =EE*SIN (3.0 *GAMMA) +RR*SIN (GAMMA) 

FINERX (GAMMA, RLAMB, FF) =EE*COS (3 . 0 *GAMMA) +RR*COS (GAMMA) + 

# FF*COS (GAMMA+RLAMB) 

FINERY (GAMMA, RLAMB, FF) =EE*SIN (3.0 *GAMVA) +RR* SIN (GAMMA) + 

* FF * S IN ( GAMMA+RLAMB ) 


, GEN00650 
, GEN00660 
,GEN00670 
, GEN00680 
, GEN00690 
, GEN00700 
, GEN00710 
, GEN00720 
, GEN00730 
GEN00740 
GEN00750 
GEN00760 
GEN00770 
GEN00780 
GEN00790 
GEN00800 
GEN00810 
GEN00820 
GEN00830 
GEN00840 
GEN00850 
GEN00860 
GEN00870 
GEN00880 
GEN00890 
GEN00900 
GEN00910 
GEN00 920 
GEN00930 
GEN00940 
GEN00950 
GEN00960 
GEN00970 
GEN00980 
GEN00990 
GEN01000 
GEN01010 
GEN01020 
GEN01030 
GEN01040 
GEN01050 
GEN01060 
GEN01070 
GEN01080 
GEN01090 
GEN01100 
GEN01110 
GEN01120 
GEN01130 
GEN01140 
GEN01150 
GEN01160 
GEN01170 
GEN01180 
GEN01190 
GEN01200 
GEN01210 
GEN01220 
GEN01230 
GEN01240 
GEN01250 
GEN01260 
GEN01270 
GEN01280 


r 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


* * 

* END FUNCTION STATEMENTS * 

* * 




* 

* 

* 

* 

* 

* 

* 

* 

* 


CALL THE SUBROUTINE THAT CHECK FOR THE EXISTANCE 
OF THE FILE "GENERATE DATA A" 

IF THE FILE EXISTS, THEN READ INPUTS FOR THE PRE- 
PROCESSOR FROM THAT FILE. IF THE FILE DOES NOT 
EXIST, THEN CREATE IT AND STORE THE USER'S 
RESPONSES IN IT FOR LATER USE 


* 

* 

i 

* 

★ 

* 

★ 

* 

★ 




NO=6 

CALL NEWFIL (STATUS, NO) 

IF ( STATUS. EQ.O) THEN 
PRINT*,' ' 

PRINT*, ' THE FILE "GENERATE DATA A" WAS FOUND ON YOUR DISK.' 
PRINT*, ' THEREFORE, YOU WILL NOT BE PROMPTED FOR THE INPUTS.' 
PRINT*, ' THE INPUTS WILL BE READ DIRECTLY FROM "GENERATE DATA” 
PRINT*, ' IF YOU WANT TO BE PROMPTED FOR THE INPUTS, THEN ' 
PRINT*, ' HALT THE EXECUTION OF THIS PROGRAM AND ERASE THE' 
PRINT*, ' FILE "GENERATE DATA" FROM YOUR DISK.' 

PRINT*,' ' 

STRING=' FILEDEF 5 DISK GENERATE DATA A ' 

STATUS=CMSCMD (STRING) 

IF ( STATUS. NE.O) THEN 

PRINT*,' FILEDEF ERROR - FILEDEF ON UNIT 5 FAILED' 
PRINT*,' RETURN CODE - ', STATUS 
ENDIF 


NO=7 


NAME=' FILEDEF 7 DISK STORAGE DATA A ' 
STATUS=CMSCMD (NAME) 


IF (STATUS. NE.O) THEN 

PRINT*,' FILEDEF ERROR - FILEDEF ON UNIT 7 FAILED' 
PRINT*,' RETURN CODE - ', STATUS 
ENDIF 


ENDIF 

* * 

* BEGIN PROMPTED INPUT * 

* * 


* * 

* ASK FOR THE HOUSING PARAMETERS * 

* * 


GEN01290 
GENO 1300 
GEN01310 
GEN01320 
GEN01330 
GENO 1340 
GEN01350 
GEN01360 
GEN01370 
GENO 1380 
GENO 13 90 
GENO 1400 
GENO 14 10 
GEN01420 
GENO 1430 
GEN01440 
GEN01450 
GENO 14 60 
GEN01470 
GENO 1480 
GENO 14 90 
GEN01500 
GENO 15 10 
GEN01520 
GEN01530 
GEN01540 
GEN01550 
' GEN01560 
GEN01570 
GENO 1580 
GENO 15 90 
GENO 1600 
GENO 1610 
GENO 1620 
GENO 1630 
GENO 1640 
GEN01650 
GEN01660 
GENO 1670 
GEN01680 
GEN01690 
GEN01700 
GEN01710 
GENO 1720 
GEN01730 
GENO 17 40 
GEN01750 
GEN01760 
GEN01770 
GENO 17 80 
GENO 17 90 
GENO 18 00 
GENO 18 10 
GENO 1820 
GENO 18 30 
GEN01840 
GENO 18 50 
GENO 18 60 
GENO 1870 
GEN01880 
GEN01890 
GEN01900 
GEN01910 
GEN01920 
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10 


11 


13 


14 


GENO 1930 

WRITE (NO,*) ' ' GENO 1940 
WRITE (NO,*) ' ' GEN01950 
WRITE (NO, 7) GENO 19 60 
FORMAT (' 0 ', ' INPUT THE ECCENTRICITY AND RADIUS OF THE ENGINE HOUSINGEN01970 


15 

16 


#G. (EE AND RR) ' ) 

WRITE (NO, 8) 

FORMAT ( ' 0 ' , ' OR ' ) 

WRITE (NO, 9) 

FORMAT (' 0 ',' INPUT THE MAX. X AND MAX. Y DIAMETER.') 

READ (5,*) TEMPI, TEMP2 

IF (STATUS .NE . 0) WRITE(8,*) TEMPI, TEMP2 
WRITE (NO,*) TEMPI, TEMP2 

IF (TEMP1.LT. 2.0) THEN 
EE=-TEMP1 
RR=TEMP2 

ELSE 

RR= (TEMP1+TEMP2) /4 . 0 
EE— (TEMP2-TEMP1) /4.0 

ENDIF 

WRITE (NO,*) EE, RR 
WRITE (NO, 10) 

FORMAT (' 0 ENTER HOUSING THICKNESS. (D)') 

READ (5,*) D 

IF { STATUS. NE.0) WRITE (8,*) D 
WRITE (NO,*) D 

WRITE (NO, 11) 

FORMAT (' O' , ' INPUT THE DEPTH OF THE HOUSING. (DEPTH)') 

READ (5,*) DEPTH 

IF ( STATUS. NE.0) WRITE (8,*) DEPTH 
WRITE (NO,*) DEPTH 
DEPTH-DEPTH 

WRITE (NO, 13) 

FORMAT (' 0 ENTER THE THICKNESS OF THE OUTER SHELL. (AA) ' ) 
READ (5,*) AA 

IF (STATUS. NE.0) WRITE (8,*) AA 
WRITE (NO,*) AA 

WRITE (NO, 14) 

FORMAT (' 0 ',' ENTER THE THICKNESS OF THE INNER SHELL. (BB) ' ) 
READ (5,*) BB 

IF (STATUS. NE.0) WRITE (8,*) BB 
WRITE (NO, *) BB 
BB— BB 


GEN01980 

GEN01990 

GEN02000 

GEN02010 

GEN02020 

GEN02030 

GEN02040 

GEN02050 

GEN02060 

GEN02070 

GEN02080 

GEN02090 

GEN02100 

GEN02110 

GEN02120 

GEN02130 

GEN02140 

GEN02150 

GEN02160 

GEN02170 

GEN02180 

GEN02190 

GEN02200 

GEN02210 

GEN02220 

GEN02230 

GEN02240 

GEN02250 

GEN02260 

GEN02270 

GEN02280 

GEN02290 

GEN02300 

GEN02310 

GEN02320 

GEN02330 

GEN02340 

GEN02350 

GEN02360 

GEN02370 

GEN02380 

GEN02390 

GEN02400 

GEN02410 

GEN02420 

GEN02430 

GEN02440 

GEN02450 


WRITE (NO, 15) 

FORMAT (' 0 ENTER THE THICKNESS OF THE INSERT. (CC) ' ) 

WRITE (NO, 16) 

FORMAT (' 0' ,' IF THIS MODEL IS NOT TO HAVE AN INSERT, ENTER "O-P" FOGEN02460 
#R (CC).') GEN02470 

GEN02480 


READ (5,*) CC 

IF (STATUS. NE.0) WRITE (8,*) CC 

WRITE (NO,*) CC 

CCC=CC 

CC— CC 

CC=BB+CC 

PI=3 . 14159266 


GEN02490 
GEN02500 
GEN02510 
GENO 2 520 
GEN02530 
GEN02540 
GEN02550 
GEN02560 
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c ************************************************************* 

* 

CALCULATE THE MAXIMUM X COORDINATE OF THE TROCHOIDAL * 
BORE AND THE DISTANCE FROM THE CENTER OF THE CENTER * 

HOUSING TO THE CENTER OF THE CYLINDRICAL REGIONS * 

* 

************************************************************* 

ZETA=0 . 0 
XX ( 1 ) =RR+EE 

DO 25 JJ=2 ,900 

XX ( JJ) — ABS (FNX(ZETA) ) 

IF (XX ( JJ-1) -XX ( JJ) ) 20,20,18 
18 XX(JJ)=XX(JJ-1) 

20 ZETA-ZETA+O . 10*PI/180 . 0 

25 CONTINUE 



YMAX-RR-EE 
XMAX=XX { J J- 1 ) 

TRANS=YMAX-XMAX 

WRITE (NO,*) 'TRANS - TRANS 

TRANSB=TRANS 

TRANSC*TRANS 

TRANSD^TRANS 

TRANS E=TRANS 

TRANS F-TRANS 

TRANSG-TRANS 


C 

C 

c 

c 

c 


* * 

* INITIALIZE VALUES * 

* * 


NN=1 

SCALE=0 . 1E0 1 

ICS=0 

ICT=0 

ICTA=0 

I TOTAL* 0 

PHCHCK=0 

SLSLVR=0 

COLOR* 8 

SOLID=l 

SDC*1 

ISP=0 

IL=1 

IEPQUE=0 

IIPQUE=0 

IPRTCK=0 

EPSI=0 .001 

DUMMY* 1 . 0 

SIGN=1 . 0 

RGNCTR=0 

ICT1=0 

ICT2=0 

ICT3=0 

ICT4=0 

R=RR-EE+D-TRANS 
T=RR-EE+D-TRANS+AA 
XMAX=RR- EE - TRAN S 


GEN02570 

GEN02580 

GEN02590 

GEN02600 

GEN02610 

GEN02620 

GEN02630 

GEN02640 

GEN02650 

GEN02660 

GEN02670 

GEN02680 

GEN02690 

GEN02700 

GEN02710 

GEN02720 

GEN02730 

GEN02740 

GEN02750 

GEN02760 

GEN02770 

GEN02780 

GEN02790 

GEN02800 

GEN02810 

GEN02820 

GEN02830 

GEN02840 

GEN02850 

GEN02860 

GEN02870 

GEN02880 

GEN02890 

GEN02900 

GEN02910 

GEN02920 

GEN02930 

GEN02940 

GEN02950 

GEN02960 

GEN02970 

GEN02980 

GEN02990 

GEN03000 

GEN03010 

GEN03020 

GEN03030 

GEN03040 

GEN03050 

GEN03060 

GEN03070 

GEN03080 

GEN03090 

GEN03100 

GEN03110 

GEN03120 

GEN03130 

GEN03140 

GEN03150 

GEN03160 

GEN03170 

GEN03180 

GEN03190 

GEN03200 
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C 

C 

c 

c 

c 


29 


C 

C 

c 

c 

c 


************************************************************* 
* * 

* END INITIALIZTION OF VALUES * 

* * 
************************************************************* 

WRITE (13, 29) PI, R, TRANS 
FORM’ "(F13.5,2X,F13.5,2X,F13.5) 

DO 130 J=l, 200 

IT-1 

IVOLC ( J) =0 
IVOLR ( J) =0 


************************************************************* 

* * 

* ASK FOR THE REGION TYPE * 

* * 
************************************************************* 

WRITE (NO, 30) 

30 FORMAT (' O' , ' IN WHICH REGION DOES THE RIB-CHANNEL SEGMENT LIE ? ' ) 
WRITE (NO, 32) 

32 FORMAT ( ' 0 ' , ' ENTER 1 FOR PHI-SOLVER REGION. ) 

WRITE (NO, 33) 

33 FORMAT {'0',' ENTER 2 FOR STRAIGHT-LINE SOLVER REGION ... f ) 

WRITE (NO, 34) 

34 FORMAT (' O', ' ENTER 3 IF THE RC SEGMENT OVERLAPS THE REGIONS. 

#') 

WRITE (NO, 36) 

36 FORMAT (' O ' , ' OR ENTER 4 TO END INPUT.') 

READ (5,*) REGION (J) 

IF (STATUS. NE.0) WRITE (8,*) REGION (J) 

WRITE (NO, *) REGION (J) 

IF (REGION (J) .EQ.4) GO TO 135 

WRITE (13,*) REGION ( J) 

IF (REGION (J) .EQ.3) THEN 

RGNCTR—RGNCTR+1 

IF (RGNCTR .EQ . 1) THEN 
ICT1-J 

ELSE IF ( RGNCTR. EQ. 2) THEN 
ICT2-J 

ELSE IF (RGNCTR. EQ.3) THEN 
ICT3-J 

ELSE IF (RGNCTR. EQ.4) THEN 
ICT4-J 

END IF 
ENDIF 

************************************************************* 

* * 

* IF THE REGION IS CYLINDRICAL, THEN ASK FOR THE TWO * 


C 

C 

C 

C 

C 

C 


ANGLES THAT DEFINE THE LEADING AND TRAILING EDGE 
OF THE RIB 


GEN03210 
GEN03220 
GEN03230 
GEN03240 
GEN03250 
GEN032 60 
GEN03270 
GEN03280 
GEN03290 
GEN03300 
GEN03310 
GEN03320 
GEN03330 
GEN03340 
GEN03350 
GEN03360 
GEN03370 
GEN03380 
GEN03390 
GEN03400 
GEN03410 
GEN03420 
GEN03430 
GEN03440 
GEN03450 
GEN03460 
GEN03470 
GEN03480 
GEN03490 
.GEN03500 
GEN03510 
GEN03520 
GEN03530 
GEN03540 
GEN03550 
GEN03560 
GEN03570 
GEN03580 
GEN03590 
GEN03600 
GEN03610 
GEN03620 
GEN03630 
GEN03640 
GEN03650 
GEN03660 
GEN03670 
GEN03680 
GEN03690 
GEN03700 
GEN03710 
GEN03720 
GEN03730 
GEN03740 
GEN03750 
GEN03760 
GEN03770 
GEN03780 
GEN037 90 
GEN03800 
GEN03810 
GEN03820 
GEN03830 
GEN03840 
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C 


40 


42 


C 

C 

C 

C 

C 

C 

C 


44 


C 

C 

c 

c 

c 

c 

c 


55 


C 

C 

C 

C 

C 


60 

62 

64 




PHI10D=PHI0NE 
PHI20D-PHITWO 
IF (REGION (J) . EQ . 1 ) THEN 
WRITE (NO, 40) 

FORMAT (' 0 ' , ' ENTER A VALUE FOR PHIONE AND PHITWO (DEGREES) 
READ (5,*) PHIONE, PHITWO 

IF (STATUS. NE.O) WRITE (8,*) PHIONE, PHITWO 
WRITE (NO, *) PHIONE, PHITWO 
WRITE (13, 42) PHIONE, PHITWO 
FORMAT (F13. 5, 5X,F13.5) 

PHI1 ( J) =PHIONE 




* * 

* IF THE REGION IS RECTANGULAR, THEN ASK FOR THE TWO * 

* Y-COORDINATES THAT DEFINE THE LEADING ANB TRAILING * 

* EDGE OF THE RIB * 

* * 




ELSE IF (REGION (J) .EQ. 2) THEN 
WRITE (NO, 44) 

FORMAT (' O' , 'ENTER THE YONE AND YTWO COORDINATE OF THE RIB 
#TER. ' ) 

READ (5,*) YONE, YTWO 

IF (STATUS. NE.O) WRITE (8,*) YONE, YTWO 
WRITE (NO, *) YONE, YTWO 
WRITE (13,42) YONE , YTWO 
YI^YONE 

************************************************************* 


* * 

* IF THE REGION IS OVERLAPPING, THEN ASK FOR THE TWO * 

* ANGLES THAT DEFINE THE LEADING AND TRAILING EDGE * 

* OF THE RIB * 

* * 




ELSE IF (REGION { J) .EQ. 3) THEN 
WRITE (NO, 55) 

FORMAT (' 0 ',' ENTER A VALUE FOR PHIONE AND PHITWO (DEGREES). 
READ (5,*) PHIONE, PHITWO 

IF (STATUS. NE.O) WRITE(8,*) PHIONE, PHITWO 
WRITE (NO, *) PHIONE, PHITWO 
WRITE (13, 42) PHIONE, PHITWO 
PHI1 (J)=PHIONE 

END IF 


* * 

* ASK FOR THE RIB TYPE * 

* * 


WRITE (NO, 60) 

FORMAT (' 0 WHAT TYPE OF RIB IS TO BE INPUT?') 
WRITE (NO, 62) 

FORMAT (' O', ' ENTER 1 FOR NORMAL RIB...') 

WRITE (NO, 64) 

FORMAT (' O', ' ENTER 2 FOR RECE.-JSD RIB...') 

WRITE (NO, 66) 


GEN03850 
GEN03860 
GEN03870 
GEN03880 
GEN03890 
GEN03900 
.') GEN03910 
GEN03920 
GEN03930 
GEN03940 
GEN03950 
GEN03960 
GEN03970 
GEN03980 
GEN03990 
GEN04000 
GEN04010 
GEN04020 
GEN04030 
GEN04040 
GEN04050 
GEN04060 
GEN04070 
GEN04080 
CENGEN04090 
GEN04100 
GEN04110 
GEN04120 
GEN04130 
GEN04140 
GEN04150 
GEN04160 
GEN04170 
GEN04180 
GEN04190 
GEN04200 
GEN04210 
GEN04220 
GEN04230 
GEN04240 
GEN04250 
GEN04260 
GEN04270 
') GEN04280 
GEN04290 
GEN04300 
GEN04310 
GEN04320 
GEN04330 
GEN04340 
GEN04350 
GEN04360 
GEN04370 
GEN04380 
GEN04390 
GEN04400 
GEN04410 
GEN04420 
GEN04430 
GEN04440 
GEN04450 
GEN04460 
GEN04470 
GEN04480 
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66 FORMAT ('O', 'OR ENTER 3 IF THIS RIB IS A SPARK PLUG.') 

READ (5,*) RIBTYP(J) 

IF (STATUS .NE.O) WRITE (8,*) RIBTYP (J) 

WRITE (NO,*) RIBTYP (J) 

WRITE (13, 43) RIBTYP (J) 

43 FORMAT (12) 

C ************************************************************* 

C * * 

C * IF THE RIB IS RECESSED, ASK FOR MAGNITUDE OF RECESS * 

C * * 

c ************************************************************* 

IF (RIBTYP (J) . EQ.2) THEN 
WRITE (NO, 68) 

68 FORMAT (' 0 ',' ENTER THE MAGNITUDE OF THE RECESS.') 

READ (5,*) RECES 

IF (STATUS. NE.O) WRITE (8,*) RECES 
WRITE (NO,*) RECES 

Q ************************************************************* 

c * * 

C * IF THE RIB IS A SPARK PLUG PORT, ASK FOR THE RADIUS * 

C * OF THE PORT * 

C * * 

c ************************************************************* 

ELSE IF (RIBTYP (J) ,EQ. 3) THEN 

WRITE (NO, 69) 

69 FORMAT (' 0 ENTER THE RADIUS OF THE SPARK PLUG.') 

READ (5,*) RSPPG 

IF (STATUS. NE.O) WRITE(8,*) RSPPG 
WRITE (NO,*) RSPPG 
RIBTYP (J)=l 
IVOLR ( J) =J 

ISP=ISP+1 

RSP (ISP) =RSPPG 

PHI ISP (ISP) =PHIONE*PI/180 . 0 

PHI2SP (ISP) =PHITWO*PI/180 . 0 

Y1SP ( ISP) =YONE 

Y2SP (ISP) =YTWO 

ISPRK (ISP) =J 

END IF 

C ************************************************************* 

c * * 

C * ASK FOR THE CHANNEL TYPE * 

C * * 

c ************************************************************* 

IF( (J.EQ.l) .OR. ( (RIBTYP (J) .EQ.l) .AND. (RIBTYP (J-l) .EQ.l) ) ) THEN 


GEN04490 
GEN04500 
GEN04510 
GEN04520 
GEN04530 
GEN04540 
GEN04550 
GEN04560 
GEN04570 
GEN04580 
GEN04590 
GEN04600 
GENO 4 610 
GEN04620 
GEN04630 
GENO 4 640 
GENO 4 650 
. GENO 4 6 60 
GEN04670 
GENO 4 680 
GEN04690 
GENO 47 00 
GEN04710 
GEN04720 
GEN04730 
GENO 4740 
GEN04750 
GEN047 60 
GEN04770 
GEN04780 
GENO 47 90 
GENO 48 00 
GENO 48 10 
GENO 4820 
GEN04830 
GENO 48 40 
GEN04850 
GENO 48 60 
GEN04870 
GEN04880 
GEN04890 
GENO 4 900 
GENO 4 910 
GENO 4 920 
GENO 4 930 
GEN04940 
GEN 04950 
GEN04960 
GENO 4 970 
GEN04980 
GEN04990 
GEN05000 
GEN05010 
GEN05020 
GEN05030 



WRITE (NO, 70) 






GEN05040 

70 

FORMAT ( ' 0 ' , ' 
WRITE (NO, 72) 

WHAT TYPE 

OF 

CHANNEL IS 

TO 

BE INPUT?') 

GEN05050 

GEN05060 

72 

FORMAT ( ' 0 ' , ' 
WRITE (NO, 74) 

ENTER 

1 

FOR NORMAL 

CHANNEL. . . ' ) 

GEN05070 

GEN05080 

74 

FORMAT ( ' 0 ' , ' 
WRITE (NO, 75) 

ENTER 

2 

FOR STIFFENED 

CHANNEL . . . ' ) 

GEN05090 

GEN05100 

75 

FORMAT ( ' 0 ' , ' ENTER 3 IF 

WRITE (NO, 78) 

THIS CHANNEL 

IS 

THE EXHAUST PORT 

. . . ' ) GEN05110 
GEN05120 
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78 FORMAT (' O' ,' OR ENTER 4 IF THIS CHANNEL IS THE INTAKE PORT.') 
READ (5,*) CNLTYP(J) 

IF (STATUS. NE.O) WRITE (8,*) CNLTYP ( J) 

WRITE (NO, *) CNLTYP (J) 


IF ( IEPQUE . EQ . 1 ) GO TO 84 


C 

C 

C 

C 

C 

C 

C 






* IF THE CHANNEL IS AN EXHAUST PORT, THEN ASK FOR THE 

* TWO ANGLES THAT DEFINE THE SIZE AND LOCATION OF 

* THE PORT 






IF (CNLTYP ( J) . EQ . 3) THEN 
IEPQUE=1 
IVOLC ( J) =J 
CNLTYP ( J) =1 
IEP=J 

P10DEP=2 . 0*PI-PHI10D 
P20DEP=2 . 0*PI-PHI20D 
P1NWEP=2 . 0*PI- (PHIONE*PI/180 .0) 

WRITE (NO, 79) 

79 FORMAT ('O',' ENTER PHIONE AND PHITWO OF THE EXHAUST PORT.') 

READ ( 5 , * ) PHI1EP,PHI2EP 

IF (STATUS. NE.O) WRITE(8,*) PHI1EP, PHI2EP 
PHI1EP=2 . 0*PI- (PHI1EP*PI/180 . 0) 

PHI2EP=2 . 0 *PI- (PHI2EP*PI/180 .0) 

WRITE (NO, *) PHI1EP, PHI2EP 

WRITE (NO, 80) 

80 FORMAT (' 0 ENTER THE RADIUS OF THE EXHAUST PORT.') 

READ (5,*) REXPT 

IF (STATUS. NE.O) WRITE (8,*) REXPT 
WRITE (NO,*) REXPT 


WRITE (NO, 82) 

82 FORMAT (' O' ,' ENTER THE THICKNESS OF THE EXHAUST PORT.') 
READ (5,*) TEXPT 

IF (STATUS. NE.O) WRITE (8,*) TEXPT 
WRITE (NO,*) TEXPT 


END IF 


C 

C 

C 

C 

C 

C 

C 






* IF THE CHANNEL IS AN INTAKE PORT, THEN ASK FOR THE 

* TWO ANGLES THAT DEFINE THE SIZE AND LOCATION OF 

* THE PORT 






84 IF ( I IPQUE . EQ . 1 ) GO TO 96 

IF (CNLTYP (J) .EQ. 4) THEN 
IIPQUE=1 
IVOLC (J)=J 
CNLTYP (J) =1 
IIP=J 

P20DIP=PHI20D 
P1NWIP=PHIONE*PI/180 . 0 


GEN05130 

GEN05140 

GEN05150 

GEN05160 

GEN05170 

GEN05180 

GEN05190 

GEN05200 

GEN05210 

GEN05220 

GEN05230 

GEN05240 

GEN05250 

GEN05260 

GEN05270 

GEN05280 

GEN05290 

GEN05300 

GEN05310 

GEN05320 

GEN05330 

GEN05340 

GEN05350 

GEN05360 

GEN05370 

GEN05380 

GEN05390 

GEN05400 

GEN05410 

GEN05420 

GEN05430 

GEN05440 

GEN05450 

GEN05460 

GEN05470 

GEN05480 

GEN05490 

GEN05500 

GEN05510 

GEN05520 

GEN05530 

GEN05540 

GEN05550 

GEN05560 

GEN05570 

GEN05580 

GEN05590 

GEN05600 

GEN05610 

GEN05620 

GEN05630 

GEN05640 

GEN05650 

GEN05660 

GEN0S670 

GEN05680 

GEN05690 

GEN05700 

GEN05710 

GEN05720 

GEN05730 

GEN05740 

GEN05750 

GEN057 60 
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PHIZ-P1NWIP*180 . o/pi 


WRITE (NO, 86) 

86 FORMAT (' 0 ENTER PHIONE AND PHITWO OF THE INTAKE PORT. ) 
READ ( 5 , * ) PHI1IP,PHI2IP 

IF (STATUS .NE. 0) WRITE(8,*) PHI1IP, PHI2IP 
PHI1 IP-PHI IIP *PI/ 180 .0 
PHI2IP-PHI2 IP *P 1/180 .0 
WRITE (NO,*) PHI1IP, PHI2IP 


WRITE (NO, 88) 

88 FORMAT (' 0 ENTER THE RADIUS OF THE INTAKE PORT.') 
READ (5,*) RINPT 

IF (STATUS. NE.0) WRITE(8,*) RINPT 
WRITE (NO,*) RINPT 


WRITE (NO, 89) 

89 FORMAT ('0',' ENTER THE THICKNESS OF THE INTAKE PORT . ' ) 

BFAfWS TINPT 

IF (STATUS. NE.0) WRITE (8,*) TINPT 
WRITE (NO,*) TINPT 


WRITE (NO, 91) 

91 FORMAT (' 0 ', f ENTER THE LENGTH AND WIDTH OF THE INTAKE PORT. ) 
READ (5,*) LINPT, WINPT 

IF (STATUS. NE.0) WRITE (8,*) LINPT, WINPT 
WRITE (NO, *) LINPT, WINPT 


ENDIF 


96 CONTINUE 
ELSE 


WRITE (NO, 98) 

FORMAT ( ' 0 ' , ' THE CHANNEL MUST BE NORMAL.') 
CNLTYP (J) =1 


ENDIF 


C 

C 

C 

C 

C 


C 

C 

C 

C 

C 

C 

c 

C 


WRITE (13, *) IVOLC ( J) , IVOLR(J) 


* 

* 

* 
* 


END PROMPTED INPUT 


* * 






IF ( (PHIONE .GT . 180 . 0 ). AND . (PHIONE . LT . 270 . 0) ) PHCHCK PHCHCK+1 
IF ( (PHITWO . GT .180.0) . AND . (PHITWO . LT .270.0) ) PHCHCK=PHCHCK+1 
IF (PHIONE . GT . 3 60 . 0 ) PHCHCK=PHCHCK+1 
IF (PHITWO .GT .360.0) PHCHCK=PHCHCK+1 


PHIONE=PHIONE*PI/180 . 0 
PHITWO=PHITWO*PI/180 . 0 




★ 


DEPENDING UPON WHICH REGION WAS SPECIFIED BY THE 
USER, THE APPROPRIATE SECTION OF THE PROGRAM IS 

CALLED 

EITHER THE OVERLAP, RECTANGULAR "R CYLINDRICAL 


* 




GEN05770 

GEN05780 

GEN05790 

GEN05800 

GEN05810 

GEN05820 

GEN05830 

GEN05840 

GEN05850 

GEN05860 

GEN05870 

GEN05880 

GEN05890 

GEN05900 

GEN05910 

GEN05920 

GEN05930 

GEN05940 

GEN05950 

GEN05960 

GEN05970 

GEN05980 

GEN05990 

GEN06000 

GEN06010 

GEN06020 

GEN06030 

GEN06040 

GEN06050 

GEN06060 

GEN06070 

GEN06080 

GEN06090 

GEN06100 

GEN0 61 10 

GEN06120 

GEN06130 

GEN0 6140 

GEN06150 

GEN06160 

GEN0 6170 

GEN06180 

GEN06190 

GEN06200 

GEN06210 

GEN06220 

GEN06230 

GEN06240 

GEN06250 

GEN06260 

GEN06270 

GEN06280 

GEN06290 

GEN06300 

GEN06310 

GEN0 6320 

GEN06330 

GEN0 6340 

GEN06350 

GEN06360 

GEN06370 

GEN06380 

GEN06390 

GEN06400 
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IF (REGION (J) .EQ.l) THEN 
GO TO 120 

ELSE IF (REGION (J) .EQ.2) THEN 
GO TO 115 

ELSE IF ( (RGNCTR.EQ. 1) .OR. (RGNCTR.EQ. 3) ) THEN 
GO TO 100 

ELSE IF ( (RGNCTR.EQ. 2) .OR. (RGNCTR.EQ. 4) ) THEN 
GO TO 105 


END IF 

Q ************************************************************* 

C * * 

C * THIS SECTION CALCULATES THE POINT COORDINATES OF THE * 

C * OVERLAPPING RIB/CHANNEL SEGMENTS. THERE ARE 12 * 

C * DIFFERENT OVERLAP CONDITIONS DEPENDING UPON THE * 

C * PERCENT A GIVEN RIB OR CHANNEL OVERALPS A REGION * 

C * * 

C ************************************************************* 


100 IF(J.EQ.l) THEN 

q ************************************************************* 

c * * 

C * FOR THE FIRST RIB/CAHNNEL SEGMENT, ASK FOR THE * 

C * THICKNESS OF THE CHANNEL * 

C * * 

C ************************************************************* 


WRITE (NO, 102) 

102 FORMAT (' 0 ENTER THE THICKNESS OF THE CHANNEL.') 

READ (5,*) TCHNL 

IF (STATUS .NE.O) WRITE (8,*) TCHNL 
WRITE (NO,*) TCHNL 

END IF 

IF ( (PHIONE.LT. 0.0) .OR. ( (SLSLVR.GT. 1) .AND. (PHIONE . LT . PI) ) ) 

IF ( SLSLVR . GT . 1 ) THEN 

SIGN=-SIGN 

TRANS=-TRANS 

RECES=-RECES 


END IF 


ICT=ICT+1 

IF(ICT.EQ.l) ICHK=0 
IF(ICT.GT.l) ICHK=1 

PHIONE=-PHIONE 
VRTICL=T*TAN (PHIONE) 

KKIX ( J) =T*SIGN 

KKIY(J)=(ABS (TRANS) -VRTICL) ’SIGN 
KIX ( J) =R*SIGN 
KIY ( J) =KKIY ( J) 


GEN06410 
GEN06420 
GEN06430 
GEN06440 
GEN06450 
GEN06460 
GEN06470 
GEN06480 
GEN06490 
GEN06500 
GEN06510 
GEN06520 
GEN06530 
GEN06540 
GEN06550 
GEN06560 
GEN06570 
GEN06580 
GEN06590 
GEN06600 
GEN06610 
GEN06620 
GEN06630 
GEN06640 
GEN06650 
GEN06660 
GEN06670 
GEN06680 
GEN06690 
GEN06700 
GEN06710 
GEN0 6720 
GEN06730 
GEN06740 
GEN06750 
GEN06760 
GEN06770 
GEN06780 
GEN06790 
GEN06800 
GEN06810 
GEN06820 
GEN06830 
GEN06840 
THENGEN0 6 850 
GEN06860 
GEN0 6870 
GEN06880 
GEN06890 
GEN06900 
GEN06910 
GEN06920 
GEN06930 
GEN06940 
GEN0 6950 
GEN06960 
GEN06970 
GEN06980 
GEN06990 
GEN07000 
GEN07010 
GEN07020 
GEN07030 
GEN07040 
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DIX(J)=XMAX*SIGN 
DIY ( J) -KKIY ( J) 

IF (RIBTYP (J) .EQ.2) THEN 

DRIX ( J) -DIX ( J) +RECES 
DRIY ( J) -DIY ( J) +RECES 

ENDIF 

CALL YALPSL (EE, RR, DIY (J) , ICHK, DALPHA) 

CALL THTASL (EE, RR, PI, DALPHA, DTHETA) 

NNIX ( J) =XXX (T, PHITWO) 

NNIY ( J) = (ABS (YYY (T, PHITWO) ) +ABS (TRANS) ) *SIGN 
NIX ( J) =XXX (R, PHITWO) 

NIY ( J) = (ABS (YYY (R, PHITWO) ) +ABS (TRANS) ) *SIGN 
PHIG-PHITWO 

CALL PALPSL (EE, RR, PI, PHITWO, TRANS, GALPHA) 

CALL THTASL (EE, RR, PI, GALPHA, GTHETA) 

GIX ( J) =FNX (GALPHA) 

GIY ( J) =FNY (GALPHA) 

IF (RIBTYP ( J) . EQ . 2 ) THEN 

GRIX ( J) =GIX ( J) +RECES*COS (PHIG) 

GRIY ( J) =GIY ( J) +RECES*SIN (PHIG) 

ENDIF 

CHECK-ABS (NNIY ( J) ) -ABS (TRANS) +ABS (VRTICL) 

C ************************************************************* 


c * * 

C * OVERLAP CONDITION ONE * 
C * * 
C * 20% OF THE RIB LIES IN THE CYLINDRICAL REGION * 
C * (QUADRANTS ONE AND THREE) * 
C * * 




IF (VRTICL.LT. CHECK/5.0) THEN 
WRITE (NO, *) ' PART 1' 

IF (PHITWO.LT. PI) THEN 

PHIE-PHITWO/3.0 
PHIF=2 . 0*PHITWO/3 . 0 

ELSE IF (PHITWO .GT .PI) THEN 

PHIE-PI+ (PHITWO-PI) /3.0 
PHIF=PI+2 .0* (PHITWO-PI) / 3 . 0 

ENDIF 


LLIX ( J) =XXX (T, PHIE) 

LLIY ( J) =YYY (T, PHIE) +TRANS 
LIX ( J) =XXX (R, PHIE) 

LIY ( J) =YYY (R, PHIE) +TRANS 


CALL PALPSL (EE, RR, PI, PHIE, TRANS, EALPHA) 
CALL THTASL (EE, RR, PI, EALPHA, ETHETA) 


GEN07050 

GEN07060 

GEN07070 

GEN07080 

GEN07090 

GEN07100 

GEN07110 

GEN07120 

GEN07130 

GEN07140 

GEN07150 

GEN07160 

GEN07170 

GEN07180 

GEN07190 

GEN07200 

GEN07210 

GEN07220 

GEN07230 

GEN07240 

GEN07250 

GEN07260 

GEN07270 

GEN07280 

GEN07290 

GEN07300 

GEN07310 

GEN07320 

GEN07330 

GEN07340 

GEN07350 

GEN07360 

GEN07370 

GEN07380 

GEN07390 

GEN07400 

GEN07410 

GEN07420 

GEN07430 

GEN07440 

GEN07450 

GEN07460 

GEN07470 

GEN07480 

GEN07490 

GEN07500 

GEN07510 

GEN07520 

GEN07530 

GEN07540 

GEN07550 

GEN07560 

GEN07570 

GEN07580 

GEN07590 

GEN07600 

GEN 07 610 

GEN07620 

GEN07630 

GEN07640 

GEN07650 

GEN07660 

GEN07670 

GEN07680 
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EIX(J) =FNX (EALPHA) 

EIY ( J) =FNY (EALPHA) 

IF (RIBTYP ( J) . EQ . 2 ) THEN 

ERIX ( J) =EIX ( J) +RECES*COS (PHIE) 
ERIY ( J) =EIY ( J) +RECES*SIN (PHIE) 

ENDIF 


MMIX(J) =XXX (T, PHIF ) 

MMIY ( J) =YYY (T, PHIF) +TRANS 
MIX ( J) =XXX (R, PHIF) 

MIY ( J) =YYY (R, PHIF) +TRANS 


CALL PALPSL (EE, RR, PI, PHIF, TRANS, FALPHA) 
CALL THTASL (EE, RR, PI, FALPHA, FTHETA) 


FIX ( J) =FNX (FALPHA) 
FIY ( J) =FNY (FALPHA) 

IF (RIBTYP ( J) . EQ . 2 ) THEN 


FRIX ( J) =FIX ( J) +RECES*COS (PHIF) 
FRIY ( J) =FIY ( J) +RECES*SIN (PHIF) 

ENDIF 


C 

C 

C 

C 

C 

C 

C 

C 




* * 

* OVERLAP CONDITION TWO * 

* * 

* 80% OF THE RIB LIES IN THE CYLINDRICAL REGION * 

* (QUADRANTS ONE AND THREE) * 

* * 




ELSE IF ( VRTICL . GT . 4 . 0*CHECK/ 5.0) THEN 
” WRITE (NO,*) 'PART 2' 

LLIX ( J) =T*SIGN 

= •- LLIY ( J) = (ABS (KKIY(J) ) +VRTICL/3.0) *SIGN 

- LIX(J) =R*SIGN 

W LIY(J) =LLIY(J) 

EIX(J) =XMAX*SIGN 
EIY ( J) =LLIY ( J) 

IF (RIBTYP (J) .EQ. 2) THEN 

ERIX ( J) =EIX ( J) +RECES 
W ERIY ( J) =EIY (J) +RECES 

ENDIF 

CALL YALPSL (EE, RR, LIY (J) , ICHK, EALPHA) 

CALL THTASL (EE, RR, PI, EALPHA, ETHETA) 

MMIX(J) =T*SIGN 

MMIY ( J) = (ABS (KKIY(J) ) +2 . 0 *VRTICL/3 . 0 ) *SIGN 
MIX ( J) =R*SIGN 
MIY ( J) =MMIY ( J) 

FIX ( J) =XMAX*SIGN 
FIY (J) =MMIY ( J) 


GEN07690 

GEN07700 

GEN07710 

GEN07720 

GEN07730 

GEN07740 

GEN07750 

GEN077 60 

GEN07770 

GEN07780 

GEN077 90 

GEN07800 

GEN07810 

GEN07820 

GEN07830 

GEN07840 

GEN07850 

GEN07860 

GEN07870 

GEN07880 

GEN07890 

GEN07900 

GEN07910 

GEN07920 

GEN07930 

GEN07940 

GEN07950 

GEN07960 

GEN07970 

GEN07980 

GEN07990 

GEN08000 

GEN08010 

GEN08020 

GEN08030 

GEN08040 

GEN08050 

GEN08060 

GEN08070 

GEN08080 

GEN08090 

GEN08100 

GEN08110 

GEN08120 

GEN08130 

GEN08140 

GEN08150 

GEN08160 

GEN08170 

GEN08180 

GEN08190 

GEN08200 

GEN08210 

GEN08220 

GEN08230 

GEN08240 

GEN08250 

GEN08260 

GEN08270 

GEN08280 

GEN08290 

GEN08300 

GEN08310 

GEN08320 



generate . fortran 


Fri May 10 14:46:12 *1 


14 


C 

C 

c 

c 

c 

c 

c 

c 

c 


IF (RIBTYP ( J) . EQ . 2 ) THEN 

FRIX ( J) -FIX ( J) +RECES 
FRIY ( J) -FIY ( J) +RECES 


ENDIF 

CALL YALPSL<EE,RR,MIY(J) , ICHK, FALPHA) 

CALL THTASL (EE, RR, PI, FALPHA, FTHETA) 

************************************************************* 
* * 

* OVERLAP CONDITION THREE * 

* * 

* BETWEEN 20% AND 80% OF THE RIB LIES IN THE * 

* CYLINDRICAL REGION * 

* (QUADRANTS ONE AND THREE) * 

* * 
************************************************************* 


GEN08330 

GEN08340 

GEN08350 

GEN08360 

GEN08370 

GEN08380 

GEN08390 

GEN08400 

GEN08410 

GEN08420 

GEN08430 

GEN08440 

GEN08450 

GEN08460 

GEN08470 

GEN08480 

GEN08490 

GEN08500 

GEN08510 

GEN08520 


ELSE IF ( (VRTICL.GT. CHECK/5.) .AND. (VRTICL . LT . 4 . *CHECK/5 . ) ) THENGEN08530 


WRITE (NO,*) 'PART 3' 

LLIX(J) =T*SIGN 

LLIY(J) = (ABS (KKIY(J) ) +VRTICL/2 .0) *SIGN 
LIX(J) =R*SIGN 
LIY ( J) — LLIY ( J) 

EIX(J) — XMAX*S IGN 
EIY ( J) =LLIY ( J) 

IF (RIBTYP ( J) . EQ . 2 ) THEN 

ERIX ( J) =EIX ( J) +RECES 
ERIY ( J) -EIY ( J) +RECES 

ENDIF 

CALL YALPSL (EE, RR, EIY ( J) , ICHK, EALPHA) 
CALL THTASL (EE, RR, PI, EALPHA, ETHETA) 

IF (PHITWO.LT. PI) THEN 
PHIF=PHITWO/2 . 0 

ELSE IF (PHITWO.GT.PI) THEN 

PHIF=PI+ (PHITWO-PI) /2 . 0 
ENDIF 


MMIX ( J) -XXX (T, PHIF) 

MMIY ( J) — (YYY (T, PHIF) +TRANS) *SIGN 
MIX (J)-XXX(R, PHIF) 

MIY ( J) = (YYY (R, PHIF) +TRANS) *SIGN 

CALL PALPSL (EE, RR, PI , PHIF, TRANS , FALPHA) 
CALL THTASL (EE, RR, PI , FALPHA, FTHETA) 

FIX ( J) =FNX (FALPHA) 

FIY ( J) =FNY (FALPHA) *SIGN 

IF (RIBTYP ( J) . EQ . 2 ) THEN 

FRIX ( J) -FIX ( J) +RECES*COS (PHIF) 

FRIY ( J) -FIY ( J) +RECES*SIN (PHIF) 

ENDIF 


GEN08540 
GEN08550 
GEN08560 
GEN08570 
GEN08580 
GEN08590 
GEN08600 
GEN08610 
GEN08620 
GEN08630 
GEN08640 
GEN08650 
GEN08660 
GEN08670 
GEN08680 
GEN08690 
GEN08700 
GEN08710 
GEN08720 
GEN08730 
GEN08740 
GEN08750 
GEN08760 
GEN08770 
GEN08780 
GEN087 90 
GEN08800 
GEN08810 
GEN08820 
GEN08830 
GEN08840 
GEN08850 
GEN08860 
GEN08870 
GEN08880 
GEN08890 
GEN08900 
GEN08910 
GEN08920 
GEN08930 
GEN08940 
GEN08950 
GEN08960 
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ENDIF 

IF(J.EQ.l) THEN 
CHECK~TCHNL 


ELSE 


CHECK=KKIY ( J) -NNIY ( J-l) 

ENDIF 




C * * 
C * THIS SECTION CALCUALTES THE POINT COORDINATES OF THE * 
C * CHANNEL FOR THE FIRST THREE OVERLAP CONDITIONS * 
C * * 




IIIX ( J) =T*SIGN 

IF(J.EQ.l) THEN 

IIIY ( J) =KtflY { J) -2 . 0*TCHNL/3 . 0 

AIX ( J) =XMAX*SIGN 

AIY ( J) = (KKIY (J) -TCHNL) *SIGN 

CALL YALPSL (EE, RR, AIY ( J) , ICHK, AALPHA) 

CALL THTASL (EE, RR, PI, AALPHA, ATHETA) 

AAAIX ( J) =FINERX (AALPHA, ATHETA, CC) 

AAAIY ( J) =FINERY (AALPHA, ATHETA, CC) 

AAIX ( J) =FINERX (AALPHA, ATHETA, BB) 

AAIY ( J) =FINERY (AALPHA, ATHETA, BB) 

ELSE 

IIIY ( J) = (ABS (KKIY ( J) ) -ABS (2 . 0 * (KKIY ( J) -NNIY (J-l) ) /3.0) ) *SIGN 
ENDIF 


IIX(J) =R*SIGN 
IIY ( J) =IIIY ( J) 

BIX ( J) =XMAX*SIGN 
BIY (J) =IIIY (J) 

CALL YALPSL (EE, RR, BIY ( J) , ICHK, BALPHA) 

CALL THTASL (EE, RR, PI, BALPHA, BTHETA) 

JJIX(J) =T*SIGN 

IF(J.EQ.l) THEN 

JJIY ( J) =KKIY ( J) -TCHNL/ 3 . 0 

ELSE 

JJIY (J)= (ABS (KKIY (J) ) -ABS ( (KKIY(J) -NNIY (J-l) ) /3.0) ) *SIGN 
ENDIF 

JIX ( J) =R*SIGN 
JIY ( J) =JJIY ( J) 

CIX ( J) =XMAX*SIGN 
CIY ( J) *JJIY ( J) 

CALL YALPSL (EE, RR, CIY (J) , ICHK, 'ALPHA) 

CALL THTASL (EE, RR, PI, CALPHA, (""THETA) 


GEN08970 

GEN08980 

GEN08990 

GEN09000 

GEN09010 

GEN09020 

GEN09030 

GEN09040 

GEN09050 

GENO 90 60 

GEN09070 

GEN09080 

GENO 90 90 

GEN09100 

GEN09110 

GEN09120 

GEN09130 

GENO 91 40 

GEN09150 

GEN09160 

GEN09170 

GENO 9180 

GEN09190 

GEN09200 

GEN09210 

GEN09220 

GEN09230 

GEN09240 

GEN09250 

GENO 92 60 

GEN09270 

GENO 92 80 

GENO 92 90 

GEN09300 

GEN09310 

GENO 9320 

GEN09330 

GEN09340 

GEN09350 

GEN09360 

GEN09370 

GEN09380 

GEN09390 

GEN09400 

GENO 9410 

GENO 9420 

GEN09430 

GENO 9 4 40 

GENO 9450 

GEN09460 

GENO 9 470 

GEN09480 

GENO 94 90 

GEN09500 

GEN09510 

GEN09520 

GEN09530 

GENO 95 40 

GENO 9550 

GEN09560 

GEN09570 

GEN09580 

GEN09590 

GEN09600 
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HIX(J)=R*SIGN 

HIY ( J) - (KKIY ( J) -CHECK) *SIGN 


SIGN-ABS (SIGN) 
TRANS -ABS (TRANS) 
RECES=ABS (RECES) 


C 

C 

C 

C 

C 

C 




* 

* 

* 

★ 


END CHANNEL COORDINATE CALCULATION 
OF FIRST THREE OVERLAP CONDITIONS 




ELSE IF (PHIONE.GE.0.0) THEN 

IF (SLSLVR.GT. 1) THEN 

SIGN=-SIGN 

TRANS=-TRANS 

RECES=-RECES 


ENDIF 

PHIE=PHIONE+ (PHITWO-PHIONE) / 3 . 0 
PHIF=PHIONE+2 .0* (PHITWO-PHIONE) /3 . 0 

KKIX ( J) =XXX (T , PHIONE) 

KKIY ( J) =YYY (T, PHIONE) +TRANS 
KIX ( J) =XXX (R, PHIONE) 

KIY ( J) =YYY (R, PHIONE) +TRANS 
PHID=PHIONE 

CALL PALPSL (EE, RR, PI , PHIONE, TRANS , DALPHA) 
CALL THTASL (EE, RR, PI, DALPHA, DTHETA) 

DIX ( J) =FNX (DALPHA) 

DIY(J) =FNY (DALPHA) 

IF (RIBTYP (J) .EQ.2) THEN 

DRIX ( J) =DIX ( J) + RECES *COS (PHID) 

DRIY ( J) =DIY ( J) +RECES*SIN (PHID) 

ENDIF 

LLIX(J) =XXX (T, PHIE) 

LLIY ( J) =YYY (T, PHIE) +TRANS 
LIX ( J) =XXX (R, PHIE) 

LIY ( J) =YYY (R, PHIE) +TRANS 

CALL PALPSL (EE, RR, PI, PHIE, TRANS, EALPHA) 
CALL THTASL (EE, RR, PI, EALPHA, ETHETA) 

EIX ( J) =FNX (EALPHA) 

EIY ( J) =FNY (EALPHA) 

IF (RIBTYP (J) .EQ.2) THEN 

ERIX ( J) =EIX ( J) + RECES *COS (PHIE) 

ERIY ( J) =EIY ( J) +RECES*SIN (PHIE) 

ENDIF 


GEN09610 

GEN09620 

GEN09630 

GEN09640 

GEN09650 

GEN09660 

GEN09670 

GEN09680 

GENO 9 690 

GEN09700 

GEN09710 

GENO 9720 

GEN09730 

GEN09740 

GEN09750 

GENO 9 7 60 

GEN09770 

GENO 97 80 

GENO 97 90 

GEN09800 

GEN09810 

GEN09820 

GEN09830 

GEN09840 

GENO 9 8 50 

GEN09860 

GENO 9870 

GENO 98 80 

GEN09890 

GEN09900 

GENO 9910 

GEN09920 

GEN09930 

GEN09940 

GENO 9 9 50 

GEN09960 

GENO 9 970 

GEN09980 

GENO 9 9 90 

GEN10000 

GEN10010 

GEN10020 

GEN10030 

GEN10040 

GEN10050 

GEN10060 

GEN10070 

GEN10080 

GEN10090 

GEN10100 

GEN10110 

GEN10120 

GEN10130 

GEN10140 

GEN10150 

GEN10160 

GEN10170 

GEN10180 

GEN10190 

GEN10200 

GEN10210 

GEN10220 

GEN10230 

GEN10240 
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MMIX ( J) —XXX (T, PHIF) 

MMIY { J) -YYY (T, PHIF) +TRANS 
MIX (J) -XXX (R, PHIF) 

MIY ( J) — YYY (R, PHIF) +TRANS 

CALL PALPSL (EE, RR, PI, PHIF, TRANS, FALPHA) 
CALL THTASL (EE, RR, PI, FALPHA, FTHETA) 

FIX (J)=FNX (FALPHA) 

FIY ( J) =FNY (FALPHA) 

IF (RIBTYP (J) .EQ.2) THEN 

FRIX ( J) -FIX ( J) +RECES*COS (PHIF) 

FRIY ( J) -FIY ( J) +RECES*SIN (PHIF) 

ENDIF 

NNIX ( J) -XXX (T, PHITWO) 

NNIY ( J) -YYY (T, PHITWO) +TRANS 
NIX ( J) -XXX (R, PHITWO) 

NIY ( J) =YYY (R, PHITWO) +TRANS 
PHIG-PHITWO 

CALL PALPSL (EE, RR, PI , PHITWO, TRANS, GALPHA) 
CALL THTASL (EE, RR, PI, GALPHA, GTHETA) 

GIX ( J) -FNX (GALPHA) 

GIY ( J) -FNY (GALPHA) 

IF (RIBTYP (J) .EQ.2) THEN 

GRIX ( J) -GIX ( J) +RECES*COS (PHIG) 

GRIY ( J) -GIY ( J) +RECES*SIN (PHIG) 

ENDIF 

IF (J.EQ.l) THEN 

AIX ( J) =XMAX*SIGN 

AIY ( J) = (KKIY ( J) -TCHNL) *SIGN 

CALL YALPSL (EE, RR, AIY ( J) , ICHK, AALPHA) 

CALL THTASL (EE, RR, PI, AALPHA, ATHETA) 

AAAIX ( J) -FINERX (AALPHA, ATHETA, CC) 

AAAIY ( J) -FINERY (AALPHA, ATHETA, CC) 

AAIX ( J) -FINERX (AALPHA, ATHETA, BB) 

AAIY ( J) -FINERY (AALPHA, ATHETA, BB) 


ENDIF 

IF(J.EQ.l) THEN 
CHECK-TCHNL 


ELSE 


CHECK-ABS (KKIY ( J) ) -ABS (NNIY ( J-l) ) 
CHECK-ABS (CHECK) 

ENDIF 

HIX ( J) =R*SIGN 


GEN10250 
GEN10260 
GEN10270 
GEN10280 
GEN10290 
GEN10300 
GEN10310 
GEN10320 
GEN10330 
GEN10340 
GEN10350 
GEN10360 
GEN10370 
GEN10380 
GEN10390 
GEN10400 
GEN10410 
GEN10420 
GEN10430 
GEN10440 
GEN10450 
GEN10460 
GEN10470 
GEN10480 
GEN10490 
GEN10500 
GEN10510 
GEN10520 
GEN10530 
GEN10540 
GEN10550 
GEN10560 
GEN10570 
GEN10580 
GEN10590 
GEN10600 
GEN10610 
GEN10620 
GEN10630 
GEN10640 
GEN10650 
GEN10660 
GEN10670 
GEN10680 
GEN10690 
GEN10700 
GEN10710 
GEN10720 
GEN10730 
GEN107 40 
GEN10750 
GEN10760 
GEN10770 
GEN10780 
GEN10790 
GEN10800 
. GEN10810 
GEN10820 
GEN10830 
GEN10840 
GEN10850 
GEN10860 
GEN10870 
GEN10880 
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generate . fortran 


HIY ( J) = (KKIY ( J) -CHECK) *SIGN 



VRTICL-ABS (KKIY ( J) ) -ABS (TRANS) 


* * 
* 

* 

* 

* 

★ 

* 

** 








OVERLAP CONDITION FOUR 

20% OF THE RIB LIES IN THE CYLINDRICAL REGION 
(QUADRANTS ONE AND THREE) 


★ * 
* 
* 
* 
* 
* 
* 


********* 






IF (VRTICL.LT. CHECK/ 5.0) THEN 
WRITE (NO,*) 'PART 4' 

IIIX ( J) =T*SIGN 

HIY ( J) = (ABS (KKIY ( J) ) -2 . 0*CHECK/3 .0) *SIGN 

IIX ( J) =R*SIGN 

IIY(J)=IIIY(J) 

BIX ( J) =XMAX*SIGN 
BIY(J)=IIIY(J) 


CALL YALPSL (EE, RR, BIY ( J) , ICHK, BALPHA) 
CALL THTASL (EE, RR, PI , BALPHA, BTHETA) 


JJIX ( J) =T*SIGN 

JJIY ( J) = (ABS (KKIY ( J) ) -CHECK/3.0) *SIGN 
JIX(J) =R*SIGN 
JIY ( J) =JJIY ( J) 

CIX(J) =XMAX*SIGN 
CIY ( J) =JJIY ( J) 


C 

C 

C 

C 

C 

C 

C 

C 




CALL YALPSL (EE, RR, CIY ( J) , ICHK, CALPHA) 
CALL THTASL (EE, RR, PI, CALPHA, CTHETA) 






* 


OVERLAP CONDITION FIVE 

80% OF THE RIB LIES IN THE CYLINDRICAL REGION 
(QUADRANTS ONE AND THREE) 


* 






ELSE IF(VRTICL.GT.4.0*CHECK/5.0) THEN 
WRITE (NO, *) 'PART 5' 

IF (PHIONE .LT .PI) THEN 
PHIB=PHIONE/3.0 
PHIC=2 . 0*PHIONE/3 . 0 


ELSE IF (PHIONE. GT. PI) THEN 


PHIC=PHIONE- (PHITWO-PHIONE) / 4 . 0 
PHIB=PHIONE-2 .0* (PHITWO-PHIONE) /5 . 0 
END IF 


IIIX ( J) =XXX (T, PHIB) 

IIIY ( J) =YYY (T, PHIB) +TRANS 
IIX (J) -XXX (R, PHIB) 

IIY ( J) =YYY (R, PHIB) +TRANS 


CALL PALPSL (EE, RR, PI, PH IANS, BALPHA) 

CALL THTASL (EE, RR, PI, BA: 3THETA) 


GEN108 90 

GEN10900 

GEN10910 

GEN10920 

GEN10930 

GEN10940 

GEN10950 

GEN10960 

GEN10970 

GEN10980 

GEN10990 

GEN11000 

GEN11010 

GEN11020 

GENII 030 

GEN11040 

GEN11050 

GEN11060 

GENII 070 

GEN11080 

GEN11090 

GEN11100 

GEN11110 

GEN11120 

GEN11130 

GEN11140 

GEN11150 

GEN11160 

GEN11170 

GENII 180 

GEN11190 

GEN11200 

GEN11210 

GEN11220 

GEN11230 

GEN11240 

GEN11250 

GEN11260 

GEN11270 

GEN11280 

GEN11290 

GEN11300 

GEN11310 

GEN11320 

GENII 330 

GEN11340 

GEN11350 

GEN11360 

GEN11370 

GEN11380 

GEN11390 

GEN11400 

GEN11410 

GENII 420 

GEN11430 

GEN11440 

GEN11450 

GEN11460 

GENII 470 

GEN11480 

GEN11490 

GEN11500 

GEN11510 

GEN11520 
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C 

C 

c 

c 

c 

c 

c 

c 

c 


GEN11530 
GEN11540 
GEN11550 
GEN11560 
GEN11570 
GEN11580 
GEN11590 
GEN11600 
GEN11610 
GEN11620 
GENII 630 
GEN11640 
GENII 650 
GENII 6 60 
GENII 670 
GENII 680 
GENII 6 90 
GEN11700 
GEN11710 
GEN11720 
GEN11730 
GEN117 40 
GEN11750 
GEN117 60 

ELSE IF ( (VRTICL . GT . CHECK/ 5 . ) . AND . (VRTICL . LT . 4 . ‘CHECK/ 5 . ) ) THEN ^N11770 
WRITE (NO, *) 'PART 6' GEN11790 

HIY ( J) = ( (ABMTRANS) -ABS (NNIY (J-l) ))/ 2 . 0+ABS (NNIY ( J-l) ) ) *SIGN GEN11800 


BIX ( J) =FNX (BALPHA) 

BIY ( J) =FNY (BALPHA) 

JJIX(J) -XXX (T, PHIC) 

JJIY ( J) -YYY (T, PHIC) +TRANS 
JIX ( J) =XXX (R, PHIC) 

JIY ( J) -YYY (R, PHIC) +TRANS 

CALL PALPSL (EE , RR, P I , PHIC, TRANS , CALPHA) 

CALL THTASL (EE, RR, PI , CALPHA, CTHETA) 

CIX(J)=FNX (CALPHA) 

CIY ( J) =FNY (CALPHA) 

***********************************************************^ 

* * 
* OVERLAP CONDITION SIX 


BETWEEN 20% AND 80% OF THE RIB LIES IN THE 
CYLINDRICAL REGION 
(QUADRANTS ONE AND THREE) 




IIX(J) =R*S IGN 
IIY ( J) =IIIY ( J) 

BIX ( J) =XMAX*SIGN 
BIY (J) =IIIY (J) 

CALL YALPSL (EE, RR, BIY (J) , ICHK, BALPHA) 
CALL THTASL (EE, RR, PI, BALPHA, BTHETA) 


IF (PHIONE . LT .PI) THEN 
PHIC=PHIONE/2 .0 

ELSE IF (PHIONE. GT. PI) THEN 

PHIC=P 1+ (PHIONE-PI) /2 .0 
END IF 

JJIX ( J) =XXX (T, PHIC) 

JJIY ( J) =YYY (T, PHIC) +TRANS 
JIX (J)=XXX(R, PHIC) 

JIY ( J) =YYY (R, PHIC) +TRANS 

CALL PALPSL (EE, RR, PI , PHIC, TRANS, CALPHA) 
CALL THTASL (EE, RR, PI, CALPHA, CTHETA) 

CIX ( J) — FNX (CALPHA) 

CIY ( J) =FNY (CALPHA) 


ENDIF 


END IF 


SIGN=ABS (SIGN) 
TRANS=ABS (TRANS) 
RECES-ABS (RECES) 


GEN11810 

GENII 820 

GEN11830 

GEN11840 

GEN11850 

GEN118 60 

GEN11870 

GEN11880 

GEN11890 

GEN11900 

GEN1 1910 

GENII 920 

GENII 930 

GEN11940 

GEN11950 

GEN11960 

GEN11970 

GEN11980 

GEN11990 

GEN12000 

GEN12010 

GEN12020 

GEN12030 

GEN12040 

GEN12050 

GEN12060 

GEN12070 

GEN12080 

GEN12090 

GEN12100 

GEN12110 

GEN12120 

GEN12130 

GEN12140 

GEN12150 


GO TO 110 
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105 


IF (PHCHCK , EQ . 1 ) THEN 


ICTA-ICTA+1 
IF (ICTA.EQ. 1) ICHK=1 
IF (ICTA.GT. 1) ICHK=0 


IF (SLSLVR.LT. 1) THEN 
RECESX—RECES 
RECESY=RECES 
SIGNX=-SIGN 
SIGNY=SIGN 
ELSE 


TRANS =-TRANS 
RECESX=RECES 
RECESY=-RECES 
SIGNX=SIGN 
SIGNY=-SIGN 
END IF 




IF (SLSLVR.GT. 1) THEN 

PHITWI=PHITWO-2 . 0*PI 
PHITW2=2 . 0*PI 
ELSE 

PHITWI=PHITWO-P I 
PHITW2=PI 

END IF 

VRTICL=ABS (T*TAN (PHITWI) ) 

NNIX ( J) =T*SIGNX 

NNIY ( J) = (ABS (TRANS) -VRTICL) *SIGNY 
NIX ( J) =R*SIGNX 
NIY ( J) =NNIY ( J) 

GIX ( J) =XMAX*SIGNX 
GIY ( J) =NNIY ( J) 

IF (RIBTYP (J) .EQ.2) THEN 

GRIX ( J) =GIX ( J) +RECESX 
GRIY ( J) -GIY ( J) +RECESY 

ENDIF 

CALL YALPSL (EE, RR, NIY ( J) , ICHK, GALPHA) 
CALL THTASL (EE, RR, PI, GALPHA, GTHETA) 

KKIX ( J) =XXX (T, PHIONE) 

KKIY ( J) =YYY (T, PHIONE) +TRANS 
KIX ( J) =XXX (R, PHIONE) 

KIY ( J) =YYY (R, PHIONE) +TRANS 

CALL PALPSL (EE, RR, PI, PHIONE, TRANS, DALPHA) 
CALL THTASL (EE, RR, PI, DALPHA, DTHETA) 

DIX(J) =FNX (DALPHA) 

DIY ( J) =FNY (DALPHA) 

IF (RIBTYP ( J) . EQ . 2 ) THEN 

DRIX ( J) =DIX ( J) +RECES*COS (PHID) 


GEN12170 

GEN12180 

GEN12190 

GEN12200 

GEN12210 

GEN12220 

GEN12230 

GEN12240 

GEN12250 

GEN122 60 

GEN12270 

GEN12280 

GEN122 90 

GEN12300 

GEN12310 

GEN12320 

GEN12330 

GEN12340 

GEN12350 

GEN12360 

GEN12370 

GEN12390 

GEN12390 

GEN12400 

GEN12410 

GEN12420 

GEN12430 

GEN12440 

GEN12450 

GEN12460 

GEN12470 

GEN12480 

GEN12490 

GEN12500 

GEN12510 

GEN12520 

GEN12530 

GEN12540 

GEN12550 

GEN12560 

GEN12570 

GEN12580 

GEN12590 

GEN12600 

GEN12610 

GEN12620 

GEN12630 

GEN12640 

GEN12650 

GEN12660 

GEN12670 

GEN12680 

GEN12690 

GEN12700 

GEN127 10 

GEN12720 

GEN12730 

GEN12740 

GEN12750 

GEN12760 

GEN12770 

GEN12780 

GEN12790 

GEN12800 
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DRIY(J) =DIY { J) +RECES*SIN (PHID) 


GEN12810 





GEN12820 

w 


ENDIF 


GEN12830 





GEN12840 



CHECK-ABS (ABS (KKIY ( J) ) -ABS (NNIY ( J) ) ) 


GEN12850 





GEN12860 


C 

************************** **************** ******************* 

GEN12870 


C 

* 

* 

GEN12880 


c 

* OVERLAP CONDITION SEVEN 

* 

GEN12890 


c 

* 

* 

GEN12900 


c 

* 20% OF THE RIB LIES IN THE CYLINDRICAL REGION 

* 

GEN12910 


c 

* (QUADRANTS TWO AND FOUR) 

★ 

GEN12920 

- ’ 

c 

* 

* 

GEN12930 

— 

c 

************************************************************* 

GEN12940 





GEN12950 



IF ( VRTICL . LT . CHECK/ 5 . 0 ) THEN 


GEN12960 



WRITE (NO,*) 'PART 7' 


GEN12970 



PHIE= (PHITW2-PHIONE) /3 . 0+PHIONE 


GEN12980 

__ 


PHIF=2 .0* (PHITW2-PHIONE) /3 . 0+PHIONE 


GEN12990 





GEN13000 

w 


LLIX ( J) =XXX (T, PHIE) 


GEN13010. 



LLIY ( J) =YYY (T, PHIE) +TRANS 


GEN13020 



LIX(J) =XXX (R, PHIE) 


GEN13030 

— 


LIY ( J) =YYY (R, PHIE) +TRANS 


GEN13040 





GEN13050 



CALL PALPSL (EE, RR, PI, PHIE, TRANS, EALPHA) 


GEN13060 

; 


CALL THTASL (EE, RR, PI, EALPHA, ETHETA) 


GEN13070 

IS 




GEN13080 



EIX ( J) =FNX (EALPHA) 


GEN13090 



EIY ( J) =FNY (EALPHA) 


GEN13100 

- - 




GEN13110 



IF (RIBTYP ( J) .EQ.2) THEN 


GEN13120 





GEN13130 

— 


ERIX ( J) =EIX ( J) +RECES*COS (PHIE) 


GEN13140 



ERIY(J) =EIY (J) +RECES*SIN (PHIE) 


GEN13150 

W 




GEN13160 



ENDIF 


GEN13170 

---- 




GEN13180 

= 


MMIX(J) =XXX (T, PHIF) 


GEN13190 



MMIY ( J) =YYY (T, PHIF) +TRANS 


GEN13200 



MIX (J)=XXX(R, PHIF) 


GEN13210 



MIY ( J) =YYY (R, PHIF) +TRANS 


GEN13220 

u 




GEN13230 



CALL PALPSL (EE, RR, PI , PHIF, TRANS , FALPHA) 


GEN13240 



CALL THTASL (EE, RR, PI, FALPHA, FTHETA) 


GEN13250 

~ 




GEN13260 

— 


FIX ( J) =FNX (FALPHA) 


GEN13270 



FIY(J)=FNY (FALPHA) 


GEN13280 





GEN13290 



IF (RIBTYP (J) .EQ.2) THEN 


GEN13300 





GEN13310 



ERIX ( J) =EIX ( J) +RECES*COS (PHIE) 


GEN13320 

— 


ERIY ( J) =EIY ( J) +RECES*SIN (PHIE) 


GEN13330 





GEN13340 



ENDIF 


GEN13350 

- — - 




GEN13360 


c 

************************************************************* 

GEN13370 

— 

c 

* 

* 

GEN13380 


c 

* OVERLAP CONDITION EIGHT 

* 

GEN13390 

— 

c 

* 

* 

GEN13400 

- - 

c 

* 80% OF THE RIB LIES IN THE CYLINDRICAL REGION 

* 

GEN13410 


c 

* (QUADRANTS TWO AND FOUR) 

* 

GEN13420 


c 

* 

* 

GEN13430 

- - 

c 

************************************************************* 

GEN13440 
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C 

c 

c 

c 

c 

c 

c 

c 

c 


ELSE IF (VRTICL.GT. 4.0 ‘CHECK/ 5.0) THEN 
WRITE (NO, *) ' PART 8' 

LLIX(J)-T*SIGNX 

LLIY(J) -(ABS (NNIY(J) ) +2 . 0* (VRTICL) /3.0) *SIGNY 
LIX ( J) =R*SIGNX 
LIY ( J) —LLIY ( J) 

EIX ( J) =XMAX*SIGNX 
EIY ( J) =LLIY ( J) 

IF (RIBTYP (J) .EQ.2) THEN 

ERIX ( J) =EIX ( J) +RECESX 
ERIY ( J) =EIY ( J) +RECESY 


ENDIF 

CALL YALPSL (EE, RR, LIY ( J) , ICHK, EALPHA) 

CALL THTASL (EE, RR, PI , EALPHA, ETHETA) 

MMIX ( J) =T*SIGNX 

MMIY ( J) = (ABS (NNIY(J) ) + (VRTICL) / 3 - 0 ) *SIGNY 
MIX ( J) =R*SIGNX 
MIY ( J) =MMIY ( J) 

FIX ( J) =XMAX*SIGNX 
FIY(J) =MMIY ( J) 


IF (RIBTYP (J) .EQ.2) THEN 

FRIX ( J) =FIX ( J) +RECESX 
FRIY ( J) =FIY ( J) +RECESY 


ENDIF 


CALL YALPSL (EE , RR, MIY ( J) , ICHK, FALPHA) 
CALL THTASL (EE, RR, PI, FALPHA, FTHETA) 


******************************************** 

* 

* OVERLAP CONDITION NINE 


***************** 

* 

* 

* 


* 

* 

* 

* 


BETWEEN 20% AND 80% OF THE RIB LIES IN THE 
CYLINDRICAL REGION 
(QUADRANTS TWO AND FOUR) 


* 




ELSE IF ( (VRTICL .GT .CHECK/ 5 . 0 ). AND . (VRTICL. LT . 4 . 0*CHECK/5 . 0) ) 
WRITE (NO,*) 'PART 9' 

IF (SLSLVR.GT. 1) THEN 

PHIE= (2 . 0*PI-PHIONE) /2 . 0+PHIONE 


ELSE 

PHIE= (PI-PHIONE) /2 . 0+PHIONE 
ENDIF 


LLIX(J) =XXX (T , PHIE) 

LLIY ( J) =YYY (T, PHIE) +TRANS 
LIX ( J) =XXX (R, PHIE) 

LIY ( J) =YYY (R, PHIE) +TRANS 


CALL PALPSL (EE, RR, PI, PHIE, TRAVo, FALPHA) 
CALL THTASL (EE, RR, PI, EALPHA, r' . \) 


GEN13450 
GEN13460 
GEN13470 
GEN13480 
GEN13490 
GEN13500 
GEN13510 
GEN13520 
GEN13530 
GEN13540 
GEN13550 
GEN13560 
GEN13570 
GEN13580 
GEN13590 
GEN13600 
GEN13610 
GEN13620 
GEN13630 
GEN13640 
GEN13650 
GEN13660 
GEN13670 
GEN13680 
GEN13690 
GEN13700 
GEN13710 
GEN13720 
GEN13730 
GEN13740 
GEN13750 
GEN13760 
GEN13770 
GEN13780 
GEN137 90 
GEN13800 
GEN13810 
GEN13820 
GEN13830 
GEN13840 
GEN13850 
GEN13860 
GEN13870 
GEN13880 
GEN138 90 
GEN13900 
GEN13910 
THENGEN13920 
GEN13930 
GEN13940 
GEN13950 
GEN13960 
GEN13970 
GEN13980 
GEN13990 
GEN14000 
GEN14010 
GEN14020 
GEN14030 
GEN14040 
GEN14050 
GEN14060 
GEN14070 
GEN14080 
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EIX ( J) =FNX (EALPHA) 

EIY ( J) -FNY (EALPHA) 

IF (RIBTYP ( J) . EQ . 2 ) THEN 

ERIX ( J) -EIX (J) +RECES *COS (PHIE) 

ERIY(J) -EIY( J) +RECES*SIN (PHIE) 

ENDIF 

MMIX ( J) — T*SIGNX 

MMIY ( J) = (ABS (NNIY(J) ) +VRTICL/2 .0) *SIGNY 
MIX ( J) =R*S IGNX 
MIY(J) =MMIY ( J) 

FIX ( J) — XMAX*SIGNX 
FIY ( J) =MMIY ( J) 

IF (RIBTYP (J) .EQ. 2) THEN 

FRIX ( J) -FIX ( J) +RECESX 
FRIY ( J) -FIY ( J) +RECESY 

ENDIF 

CALL YALPSL (EE, RR, FIY ( J) , ICHK, FALPHA) 

CALL THTASL (EE, RR, PI , FALPHA, FTHETA) 


ENDIF 


C ******************************* ************************ ****** 
C * * 
C * THIS SECTION CALCULATES THE CHANNEL COORDINATES OF * 
C * OVERLAP CONDITIONS SEVEN THROUGH NINE * 
C * * 

c ************************************************************* 


PHIB-PHIT+ (PHIONE-PHIT) /3 . 0 
PHIC=PHIT+2 .0* (PHIONE-PHIT) /3 . 0 

I I IX ( J) —XXX (T, PHIB) 

IIIY ( J) =YYY (T, PHIB) +TRANS 
IIX(J) -XXX (R, PHIB) 

IIY ( J) -YYY (R, PHIB) +TRANS 

CALL PALPSL (EE, RR, PI, PHIB, TRANS , BALPHA) 
CALL THTASL (EE, RR, PI , BALPHA, BTHETA) 

BIX <J)=FNX (BALPHA) 

BIY ( J) =FNY (BALPHA) 

JJIX { J) =XXX (T, PHIC) 

JJIY ( J) -YYY (T, PHIC) -f TRANS 
JIX(J) -XXX (R, PHIC) 

JIY ( J) -YYY (R, PHIC) +TRANS 

CALL PALPSL (EE, RR, PI, PHIC, TRANS , CALPHA) 
CALL THTASL (EE, RR, PI , CALPHA, CTHETA) 

CIX(J)=FNX (CALPHA) 

CIY(J) -FNY (CALPHA) 

HIX ( J) —NIX ( J-l ) 

HIY ( J) — NIY ( J-l) 


GEN14090 

GEN14100 

GEN14110 

GEN14120 

GEN14130 

GEN14140 

GEN14150 

GEN14160 

GEN14170 

GEN14180 

GEN14190 

GEN14200 

GEN14210 

GEN14220 

GEN14230 

GEN14240 

GEN14250 

GEN14260 

GEN14270 

GEN14280 

GEN14290 

GEN14300 

GEN14310 

GEN14320 

GEN14330 

GEN14340 

GEN14350 

GEN14360 

GEN14370 

GEN14380 

GEN14390 

GEN14400 

GEN14410 

GEN14420 

GEN14430 

GEN14440 

GEN14450 

GEN14460 

GEN14470 

GEN14480 

GEN14 4 90 

GEN14500 

GEN14510 

GEN14520 

GEN14530 

GEN14540 

GEN14550 

GEN14560 

GEN14570 

GEN14580 

GEN14590 

GEN14600 

GEN14610 

GEN14620 

GEN14630 

GEN14640 

GEN14650 

GEN14660 

GEN14670 

GEN14680 

GEN14690 

GEN14700 

GEN14710 

GEN14720 
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C ************************************************************* 

c * 

c * END CHANNEL COORDINATE CALCULATION * 

C * * 

c ************************************************************* 

ELSE IF (PHCHCK.E Q.2) THEN 

IF ( SLSLVR . GT . 1 ) THEN 

VRTICL=T*TAN (PHIONE-2 . 0*PI) 

ELSE 

VRTICL=T*TAN (PHIONE-PI) 

ENDIF 


KKIX { J) — T*SIGNX 

KKIY ( J) = ( TRANS -VRTICL) *SIGNY 

KIX ( J) -R*SIGNX 

KIY ( J) =KKIY ( J) 

DIX ( J) =XMAX*SIGNX 
DIY ( J) =KKIY ( J) 

IF (RIBTYP (J) .EQ.2) THEN 

DRIX ( J) =DIX ( J) +RECESX 
DRIY ( J) =DIY ( J) +RECESY 

ENDIF 

CALL YALPSL (EE, RR, DIY ( J) , ICHK, DALPHA) 
CALL THTASL (EE, RR, P I , DALPHA, DTHETA) 

NNIX ( J) =T*SIGNX 

NNIY ( J) = (TRANS -VRTICL) *SIGNY 

NIX ( J) =R*SIGNX 

NIY ( J) —NNIY ( J) 

GIX ( J) =XMAX*SIGNX 
GIY ( J) =NNIY ( J) 

IF (RIBTYP (J) .EQ.2) THEN 

GRIX ( J) =GIX ( J) +RECESX 
GRIY ( J) =GIY ( J) +RECESY 

ENDIF 

CALL YALPSL (EE, RR, GIY ( J) , ICHK, GALPHA) 
CALL THTASL (EE, RR, P I , GALPHA, GTHETA) 

TRIB=KKIY ( J) -NNIY ( J) 

LLIX ( J) =T*SIGNX 

LLIY { J) = (NNIX ( J) +2 . 0*TRIB/ 3 .0) *SIGNY 
LIX(J) =R*S IGNX 
LIY ( J) =LLIY ( J) 

EIX ( J) =XMAX*SIGNX 
EIY ( J) =LLIY ( J) 

IF (RIBTYP (J) .EQ.2) THEN 

ERIX ( J) =EIX ( J) +RECESX 
ERIY ( J) -EIY ( J) -fRECESY 

ENDIF 


GEN14730 

GEN14740 

GEN14750 

GEN14760 

GEN14770 

GEN147 80 

GEN147 90 

GEN14800 

GEN14810 

GEN14820 

GEN14830 

GEN14840 

GEN14850 

GEN148 60 

GEN14870 

GEN14880 

GEN14890 

GEN14900 

GEN14910 

GEN14920 

GEN14930 

GEN14940 

GEN14950 

GEN14960 

GEN14970 

GEN14980 

GEN14990 

GEN150 00 

GEN150 10 

GEN1502 0 

GEN15030 

GEN15040 

GEN15050 

GEN15060 

GEN15070 

GEN15080 

GEN150 90 

GEN15100 

GEN15110 

GEN15120 

GEN15130 

GEN15140 

GEN15150 

GEN15160 

GEN1517 0 

GEN1518 0 

GEN15190 

GEN1520 0 

GEN152 10 

GEN15220 

GEN15230 

GEN15240 

GEN15250 

GEN152 60 

GEN15270 

GEN15280 

GEN152 90 

GEN1530 0 

GEN15310 

GEN15320 

GEN15330 

GEN15340 

GEN15350 

GEN153 60 



generate . fortran 


Fri May 10 14:46:12 1991 


25 


CALL YALPSL (EE, RR, EIY ( J) , ICHK, EALPHA) 
CALL THTASL (EE, RR, PI, EALPHA, ETHETA) 

MMIX(J)-T*SIGNX 

MMIY(J)* (NNIY(J) +TRIB/3 .0) *SlGNY 
MIX ( J) =R*SIGNX 
MIY ( J) =MMIY ( J) 

FIX ( J) =XMAX* S IGNX 
FIY ( J) =MMIY ( J) 

IF (RIBTYP ( J) . EQ . 2) THEN 

FRIX ( J) -FIX ( J) +RECESX 
FRIY { J) =FIY ( J) +RECESY 

ENDIF 

CALL YALPSL (EE, RR, FIY ( J) , ICHK, FALPHA) 
CALL THTASL (EE, RR, PI, FALPHA, FTHETA) 

HIX ( J) =NIX ( J-l ) 

HIY ( J) =NIY (J-l) 

CHECK=TRANS-KKIY ( J) 


- * Q ************************************************************* 

U c * 

C * OVERLAP CONDITION TEN * 

C * * 

C * 20% OF THE CHANNEL LIES IN THE CYLINDRICAL REGION * 

y C * (QUADRANTS TWO AND FOUR) * 

C * * 

0 *★★★★*★*****★******★*★★★★**★****★★*★★*****★******★★★*******★* 


IF (CHECK. LT.TRIB/ 5.0) THEN 
WRITE (NO,*) 'PART 10' 

ANGLE=NNIY (J-l) /NNIX(J-l) 
PHIH=ATAN (ANGLE) 

PHIB=PHIH+ (PHIONE-PHIH) /3 . 0 
PHIC=PHIH+2 .0* (PHIONE-PHIH) /3 . 0 

IIIX ( J) =XXX (T, PHIB) 

IIIY ( J) =YYY (T, PHIB) +TRANS 
IIX(J) =XXX (R, PHIB) 

IIY ( J) =YYY (R, PHIB) +TRANS 


CALL PALPSL (EE, RR, PI, PHIB, TRANS, BALPHA) 
CALL THTASL (EE, RR, PI, BALPHA, BTHETA) 

BIX ( J) =FNX (BALPHA) 

BIY(J)=FNY (BALPHA) 

JJIX ( J) =XXX (T, PHIC) 

JJIY ( J) =YYY (T, PHIC) +TRANS 
JIX ( J) =XXX (R, PHIC) 

JIY ( J) =YYY (R, PHIC) +TRANS 

CALL PALPSL (EE, RR, PI , PHIC, TRANS, CALPHA) 
CALL THTASL (EE, RR, PI, CALPHA, CTHETA) 

CIX(J) =FNX (CALPHA) 

CIY(J) =FNY (CALPHA) 


GEN15370 
GEN15380 
GEN15390 
GEN15400 
GEN15410 
GEN15420 
GEN15430 
GEN15440 
GEN15450 
GEN15460 
GEN15470 
GEN15480 
GEN15490 
GEN15500 
GEN15510 
GEN15520 
GEN15530 
GEN15540 
GEN15550 
GEN15560 
GEN15570 
GEN15580 
GEN15590 
GEN15600 
GEN15610 
GEN15620 
GEN15630 
GEN15640 
GEN15650 
GEN15660 
GEN15670 
GEN15680 
GEN15690 
GEN15700 
GEN15710 
GEN15720 
GEN15730 
GEN15740 
GEN15750 
GEN157 60 
GEN15770 
GEN15780 
GEN15790 
GEN15800 
GEN15810 
GEN15820 
GEN15830 
GEN158 40 
GEN15850 
GEN15860 
GEN15870 
GEN15880 
GEN158 90 
GEN15900 
GEN15910 
GEN15920 
GEN15930 
GEN15940 
GEN15950 
GEN15960 
GEN15970 
GEN15980 
GEN15990 
GEN16000 



generate . fortran Fri Hay 10 14:46:1- 1 26 




C * * 
C * OVERLAP CONDITION ELEVEN * 
C * * 
C * 80% OF THE CHANNEL LIES IN THE CYLINDRICAL REGION * 
C * (QUADRANTS TWO AND FOUR) * 
C * * 


c ************************************************************* 

ELSE IF (CHECK . GT . 4 . 0 *TRIB/5 . 0 ) THEN 
WRITE (NO, *) ' PART 11' 

IIIX ( J) =T*SIGNX 

IIIY ( J) = (KKIY ( J) +2 . 0*TRIB/3 . 0 ) *SIGNY 
IIX ( J) =R*SIGNX 
IIY ( J) —IIIY ( J) 

BIX ( J) =XMAX*SIGNX 
BIY(J) =IIIY(J) 

CALL YALPSL (EE , RR, BIY ( J) , ICHK, BALPHA) 

CALL THTASL (EE, RR, PI, BALPHA, BTHETA) 

JJIX(J) =T*S IGNX 

JJIY ( J) = (KKIY ( J) 4-TRIB/3 .0) *SIGNY 
JIX(J) =R*SIGNX 
JIY (J) —JJIY ( J) 

CIX ( J) — XMAX*S IGNX 
CIY ( J) -JJIY ( J) 

CALL YALPSL (EE, RR, CIY ( J) , ICHK, CALPHA) 

CALL THTASL (EE, RR, PI , CALPHA, CTHETA) 

C ************************************************************* 

C * * 

c * OVERLAP CONDITION TWELVE * 

C * * 

C * BETWEEN 20% AND 80% OF THE CHANNEL LIES IN THE * 

C * CYLINDRICAL REGION * 

C * (QUADRANTS TWO AND FOUR) * 

C * * 

c ************************************************************* 


ELSE IF ( (CHECK . GT . TRIB/5 . 0 ) . AND . (CHECK . LT . 4 . 0 *TRIB/5 . 0 ) ) THEN 
WRITE (NO,*) 'PART 12' 

ANGLE-NNIY (J-l) /NNIY(J-l) 

PHIH-ATAN (ANGLE) 

PHIB—PHIH4- (PHIH+PHIONE) /2 . 0 

IIIX(J) =XXX (T , PHIB) 

IIIY ( J) =YYY (T, PHIB) -f TRANS 
IIX ( J) =XXX (R, PHIB) 

IIY ( J) =YYY (R, PHIB) +TRANS 

CALL PALPSL (EE, RR, PI, PHIB, TRANS, BALPHA) 

CALL THTASL (EE, RR, PI, BALPHA, BTHETA) 

BIX (J)=FNX (BALPHA) 

BIY (J)-FNY (BALPHA) 

JJIX ( J) =T*SIGNX 

JJIY ( J) = (KKIY ( J) -fCHECK/ 2 . 0 ) *S IGNY 
JIX ( J) =R*SIGNX 
JIY (J) -JJIY (J) 


ORIGINAL PAGE IS 
OF POOR QUALITY 
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CIX ( J) =XMAX*SIGNX 
CIY(J)-JJIY(J) 

CALL YALPSL (EE, RR, CIY ( J) , ICHK, CALPHA) 
CALL THTASL (EE, RR, PI , CALPHA, CTHETA) 


C 

c 

c 

c 

c 

c 


END IF 

END IF 

********************************************* 

* THIS SECTION CALCUALTES THE INNER SHELL COORDINATES 

* FOR THE OVERLAP CONDITIONS 






* 
★ 
* 
* 


BBBIX ( J) -FINERX (BALPHA, BTHETA, CC) 
BBBIY < J) -FINERY (BALPHA, BTHETA, CC) 
BBIX ( J) -FINERX (BALPHA, BTHETA, BB) 
BBIY ( J) -FINERY (BALPHA, BTHETA, BB) 


CCCIX ( J) -FINERX (CALPHA, CTHETA, CC) 
CCCIY ( J) -FINERY (CALPHA, CTHETA, CC) 
CCIX ( J) -FINERX (CALPHA, CTHETA, BB) 
CCIY ( J) -FINERY (CALPHA, CTHETA, BB) 

DDDIX ( J) -FINERX (DALPHA, DTHETA, CC) 
DDDIY ( J) “FINERY (DALPHA, DTHETA, CC) 
DDIX ( J) =FINERX (DALPHA, DTHETA, BB) 
DDIY ( J) -FINERY (DALPHA, DTHETA, BB) 

EEEIX ( J) -FINERX (EALPHA, ETHETA, CC) 
EEEIY ( J) -FINERY (EALPHA, ETHETA, CC) 
EEIX ( J) -FINERX (EALPHA, ETHETA, BB) 
EEIY ( J) -FINERY (EALPHA, ETHETA, BB) 

FFFIX ( J) =FINERX (FALPHA, FTHETA, CC) 
FFFIY ( J) -FINERY (FALPHA, FTHETA, CC) 
FFIX ( J) -FINERX (FALPHA, FTHETA, BB) 
FFIY ( J) -FINERY (FALPHA, FTHETA, BB) 


GGGIX ( J) =FINERX (GALPHA, GTHETA, CC) 
GGGIY ( J) =FINERY (GALPHA, GTHETA, CC) 
GGIX ( J) -FINERX (GALPHA, GTHETA, BB) 
GGIY ( J) -FINERY (GALPHA, GTHETA, BB) 


C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 


TRANS-ABS (TRANS) 
GO TO 125 




END OF OVERLAPPING RIB/CAHNNEL POINT CALCULATION * 


THIS SECTION CALCUALTES THE POINT COORDINATES OF 
THE RIB/CHANNEL SEGMENTS THAT LIE IN THE 
RECTANGULAR REGION ON THE RIGHT SIDE OF THE HOUSING 

,***********************************'********************** 
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IF (GIX(J-l) .GT.0.0) THEN 
WRITE (NO, *) 'RIGHT SIDE' 
LINK-0 


TRIB-ABS (YTWO-YONE) 

AIY (J) -GIY(J-l) 

DIY(J)=YONE 
DDIY ( J) =DIY ( J) 

DDDIY (J) =DIY ( J) 

BIY ( J) -AIY ( J) +ABS (DIY ( J) -AIY ( J) ) /3 0 
BBIY(J)=BIY(J) 

BBBIY(J)=BIY(J) 

CIY(J) —AIY ( J) +2 . 0*ABS (DIY (J) -AIY (J) ) /3 0 
CCIY ( J) -CIY ( J) 

CCCIY (J) -CIY ( J) 

GIY(J)=YTWO 
GGIY(J) -GIY ( J) 

GGGIY (J) =GIY(J) 

EIY(J) =DIY (J) +ABS (GIY(J) -DIY(J) ) /3 n 
EEIY(J)=EIY(J) 

EEEIY(J)=EIY(J) 

FIY(J)=DIY(J)+2.0*ABS(GIY(J)-DIY(J))/3 0 

FFIY (J) -FIY ( J) ' 

FFFIY(J)=FIY(J) 


TOE\?R/rH?Lrf''cL J ^ LTES THE e0lm COORDINATES OF 
THE RIB/CHANNEL SEGMENTS IF IT LIES IN THE 

* RECTANGULAR REGION ON THE LEFT SIDE OF THE HOUSING 

ELSE IF (GIX(J-l) .LT.0.0) THEN 
WRITE (NO, *) 'LEFT SIDE' 


LINK-1 


AIY (J) -GIY ( J-l) 

DIY(J)=YONE 
DDIY (J) -DIY (J) 

DDDIY (J)-DIY(J) 

BIY ( J) -AIY ( J) -ABS (DIY ( J) -AIY ( J) ) /3 Q 
BBIY(J)=BIY(J) 

BBBIY(J)=BIY(J) 

CCIY^ J)°— CIY^J)" 2 ‘ °* ABS (DIY ( J) ~ AIY ( J) > /3 ■ 0 
CCCIY (J) -CIY (J) 

GIY (J) — YTWO 
GGIY(J)=GIY(J) 

GGGIY (J) -GIY ( J) 

EIY(J)-DIY(J)-ABS(GIY(J)-DIY(J) )/3 0 
EEIY(J)=EIY(J) 

EEEIY(J)=EIY(J) 

Zt ' 2 '' 0 ’ *“ s ' 1811 1 '■ 11 - DJY 1 J > 1 /3 • » 

FFFIY(J)=FIY(J) 
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ENDIF 

IF (LINK.EQ. 1) SIGN=-SIGN 

HIY(J)«NIY(J-1) 

HHIY(J)-NNIY(J-1) 

IIY ( J) =BIY ( J) 

IIIY ( J) =BIY ( J) 

JIY ( J) =CIY ( J) 

JJIY(J) =CIY { J) 

KIY ( J) =DIY ( J) 

KKIY(J)-DIY(J) 

LIY(J)=EIY(J) 

LLIY ( J) =EIY ( J) 

MIY ( J) =FIY ( J) 

MMIY ( J) =FIY ( J) 

NIY ( J) =GIY ( J) 

NNIY ( J) =GIY ( J) 

BIX (J) =XMAX*SIGN 

CALL YALPSL (EE, RR, BIY ( J) , ICHK, ALPHA) 
CALL THTASL (EE,RR, PI, ALPHA, THETA) 
BBIX ( J) =FINERX (ALPHA, THETA, BB) 

BBBIX ( J) =FINERX (ALPHA, THETA, CC) 

CIX(J) =XMAX*SIGN 

CALL YALPSL (EE, RR, CIY { J) , ICHK, ALPHA) 
CALL THTASL (EE, RR, PI, ALPHA, THETA) 
CCIX ( J) =FINERX (ALPHA, THETA, BB) 

CCCIX ( J) =FINERX (ALPHA, THETA, CC) 

DIX(J) =XMAX*SIGN 

CALL YALPSL (EE, RR,DIY(J) , ICHK, ALPHA) 
CALL THTASL (EE, RR, PI, ALPHA, THETA) 
DDIX ( J) =FINERX (ALPHA, THETA, BB) 

DDDIX ( J) =FINERX (ALPHA, THETA, CC) 

EIX(J) =XMAX*SIGN 

CALL YALPSL (EE, RR, EIY ( J) , ICHK, ALPHA) 
CALL THTASL (EE, RR, PI , ALPHA, THETA) 
EEIX ( J) =FINERX (ALPHA, THETA, BB) 

EEEIX ( J) =FINERX (ALPHA, THETA, CC) 

FIX ( J) =XMAX*SIGN 

CALL YALPSL (EE, RR, FIY (J) , ICHK, ALPHA) 
CALL THTASL (EE, RR, PI, ALPHA, THETA) 
FFIX ( J) =FINERX (ALPHA, THETA, BB) 

FFFIX ( J) =FINERX (ALPHA, THETA, CC) 

GIX ( J) =XMAX*SIGN 

CALL YALPSL (EE, RR,GIY(J) , ICHK, ALPHA) 
CALL THTASL (EE, RR, PI , ALPHA, THETA) 
GGIX ( J) =FINERX (ALPHA, THETA, BB) 

GGGIX ( J) =FINERX (ALPHA, THETA, CC) 

HIX ( J) =NIX ( J-l) 

HHIX ( J) =NNIX ( J-l) 

IIX(J) =HIX(J) 

IIIX ( J) =HHIX ( J) 

JIX(J)=IIX(J) 

JJIX(J) =IIIX(J) 

KIX ( J) =JIX ( J) 

KKIX ( J) =JJIX ( J) 

LIX ( J) =KIX ( J) 

LLIX ( J) =KKIX ( J) 
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MIX ( J) —LIX ( J) 

MMIX ( J) =LLIX ( J) 

NIX ( J) =MIX ( J) 

NNIX ( J) =MMIX ( J) 

IF (RIBTYP (J) .EQ.2) THEN 

IF (DIX ( J) . LT . 0 . 0) RECES=-RECES 

DRIX ( J) =DIX ( J) +RECES 
DRIY ( J) =DIY ( J) 

ERIX ( J) =EIX ( J) +RECES 
ERIY ( J) =EIY ( J) 

FRIX ( J) -FIX ( J) +RECES 
FRIY ( J) =FIY ( J) 

GRIX ( J) =GIX ( J) +RECES 
GRIY ( J) =GIY ( J) 


END IF 


SIGN=ABS (SIGN) 
TRANS=ABS (TRANS) 
GO TO 125 


Q ************************************************************* 

C * * 

c * END OF RECTANGULAR REGION RIB/CHANNEL * 

C * POINT CALULATION * 

C * * 

f ************************************************************* 


c 

c 

c 

c 

c 

c 

c 


************************************************************* 
* * 

* THIS SECTION CALCUALTES THE POINT COORDINATES OF * 

* THE RIB/CHANNEL SEGMENTS IF IT LIES IN THE * 

* CYLINDRICAL REGION * 

* * 
************************************************************* 


120 PHIA=PHIG 

PHIA1=PHIA 

PHIB=PHIA+ (PHIONE-PHIA) /3 . 0 
PHIB1=PHIB 

PHIC=PHIA+2 . 0 * (PHIONE-PHIA) /3 . 0 

PHIC1=PHIC 

PHID=PHIONE 

PHID1=PHID 

PHIE=PHIONE+ (PHITWO-PHIONE) /3 . 0 
PHIE1=PHIE 

PHIF=PHIONE+2 .0* (PHITWO-PHIONE) / 3 . 0 

PHIF1=PHIF 

PHIG=PHITWO 

PHIG1=PHIG 

SIGN1—1 . 0 

IF (PHIA.GT.PI) THEN 

PHIA1-2 .0*PI-PHIA 
PHIB1=2 .0*PI-PHIB 
PHIC1=2 .0*PI-PHIC 
PHID1=2 . 0*PI-PHID 
PHIE1=2 . 0 *PI-PHIE 
PHIF1=2 . 0 *PI-PHIF 
PHIG1=2 . 0*PI-PHIG 
SIGN1=-1 . 0 
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ENDIF 

CALL PALPSL (EE, RR, PI, PHIA1, TRANS, AALPHA) 
CALL THTASL (EE, RR, PI , AALPHA, ATHETA) 

CALL PALPSL (EE, RR, PI, PHIB1, TRANS, BALPHA) 
CALL THTASL (EE, RR, PI, BALPHA, BTHETA) 

CALL PALPSL (EE, RR, P I , PHIC1 , TRANS , CALPHA) 
CALL THTASL (EE, RR, PI, CALPHA, CTHETA) 

CALL PALPSL (EE, RR, PI, PHID1, TRANS, DALPHA) 
CALL THTASL (EE, RR, PI, DALPHA, DTHETA) 

CALL PALPSL (EE, RR, PI, PHIE1, TRANS, EALPHA) 
CALL THTASL (EE, RR, PI, EALPHA, ETHETA) 

CALL PALPSL (EE, RR, PI , PHIF1 , TRANS , FALPHA) 
CALL THTASL (EE, RR, PI, FALPHA, FTHETA) 

CALL PALPSL (EE , RR, P I , PHIG1 , TRANS , GALPHA) 
CALL THTASL (EE, RR, PI, GALPHA, GTHETA) 

BIX (J)=FNX (BALPHA) 

BIY(J)=FNY (BALPHA) *SIGN1 

BBIX ( J) =FINERX (BALPHA, BTHETA, BB) 

BBIY ( J) “FINERY (BALPHA, BTHETA, BB) *SIGNl 
BBBIX ( J) “FINERX (BALPHA, BTHETA, CC) 

BBBIY ( J) “FINERY (BALPHA, BTHETA, CC) *SIGN1 

CIX(J)=FNX (CALPHA) 

CIY(J)=FNY (CALPHA) *SIGN1 

CCIX ( J) “FINERX (CALPHA, CTHETA, BB) 

CCIY ( J) “FINERY (CALPHA, CTHETA, BB) *SIGN1 
CCCIX ( J) “FINERX (CALPHA, CTHETA, CC) 

CCCIY ( J) “FINERY (CALPHA, CTHETA, CC) *SIGN1 

DIX ( J) =FNX (DALPHA) 

DIY(J)=FNY (DALPHA) *SIGN1 

DDIX ( J) “FINERX (DALPHA, DTHETA, BB) 

DDIY ( J) “FINERY (DALPHA, DTHETA, BB) *SIGN1 
DDDIX ( J) “FINERX (DALPHA, DTHETA, CC) 

DDDIY ( J) “FINERY (DALPHA, DTHETA, CC) *SIGN1 

EIX(J)=FNX (EALPHA) 

EIY(J)=FNY (EALPHA) *SIGN1 

EEIX ( J) “FINERX (EALPHA, ETHETA, BB) 

EEIY ( J) “FINERY (EALPHA, ETHETA, BB) *SIGN1 
EEEIX ( J) “FINERX (EALPHA, ETHETA, CC) 

EEEIY ( J) “FINERY (EALPHA, ETHETA, CC) *SIGN1 

FIX (J)=FNX (FALPHA) 

FIY (J) =FNY (FALPHA) *SIGN1 

FFIX ( J) “FINERX (FALPHA, FTHETA, BB) 

FFIY ( J) “FINERY (FALPHA, FTHETA, BB) *SIGN1 
FFFIX ( J) “FINERX (FALPHA, FTHETA, CC) 

FFFIY ( J) “FINERY (FALPHA, FTHETA, CC) *SIGN1 

GIX(J)=FNX (GALPHA) 

GIY(J) =FNY (GALPHA) *SIGN1 

GGIX ( J) “FINERX (GALPHA, GTHETA, BB) 

GGIY ( J) “FINERY (GALPHA, GTHETA, BB) *SIGN1 
GGGIX ( J) “FINERX (GALPHA, GTHETA, CC) 

GGGIY ( J) “FINERY (GALPHA, GTHETA, CC) *SIGNl 

HIX(J) =NIX(J-1) 

HIY (J) =NIY (J-l) 

HHIX(J) “NNIX(J-l) 

HHIY ( J) =NNIY (J-l) 
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IF (PHIB.GT.PI) TRANSB=-TRANSB 
IIX ( J) —XXX (R, PHIB) 

IIY ( J) =YYY (R, PHIB) +TRANSB 
IIIX(J) -XXX (T, PHIB) 

IIIY ( J) -YYY (T, PHIB) +TRANSB 

IF (PHIC.GT.PI) TRANSC— TRANSC 
JIX ( J) —XXX (R, PHIC) 

JIY ( J) =YYY (R, PHIC) +TRANSC 
JJIX ( J) =XXX (T, PHIC) 

JJIY (J) -YYY (T, PHIC) +TRANSC 

IF (PHID.GT.PI) TRANSD— TRANSD 
KIX ( J) -XXX (R, PHID) 

KIY ( J) -YYY (R, PHID) +TRANSD 
KKIX ( J) -XXX (T, PHID) 

KKIY(J) -YYY (T, PHID) +TRANSD 

IF (PHIE.GT.PI) TRANSE— TRANSE 
LIX ( J) —XXX (R, PHIE) 

LIY ( J) -YYY (R, PHIE) +TRANSE 
LLIX ( J) -XXX (T, PHIE) 

LLIY ( J) -YYY (T, PHIE) +TRANSE 

IF (PHIF.GT.PI) TRANSF— TRANSF 
MIX ( J) —XXX (R, PHIF) 

MIY ( J) -YYY (R, PHIF) +TRANSF 
MMIX ( J) -XXX (T, PHIF) 

MMIY(J) -YYY (T, PHIF) +TRANSF 

IF (PHIG.GT .PI) TRANSG— TRANSG 
NIX ( J) -XXX (R, PHIG) 

NIY ( J) =YYY(R, PHIG) +TRANSG 
NNIX ( J) -XXX (T, PHIG) 

NNIY ( J) -YYY (T, PHIG) +TRANSG 

c ************************************************************* 


c * * 

C * IF THE RIB IS RECESSED, CALCULATE THE EXTRA POINT * 
C * NEEDED TO DEFINE THE RECESS OF THE RIB * 
C * * 


c ************************************************************* 

IF(RIBTYP (J) .EQ.2) THEN 

DRIX ( J) -DIX ( J) +RECES*COS (PHID) 

DRIY ( J) -DIY ( J) +RECES*SIN (PHID) 

ERIX ( J) — EIX ( J) +RECES*COS (PHIE) 

ERIY ( J) -EIY ( J) +RECES*SIN (PHIE) 

FRIX (J) -FIX ( J) +RECES*COS (PHIF) 

FRIY ( J) — FIY ( J) +RECES*SIN (PHIF) 

GRIX ( J) -GIX ( J) +RECES*COS (PHIG) 

GRIY (J) -GIY ( J) +RECES*SIN (PHIG) 

END IF 

C ************************************************************* 

c * * 

C * RESET THE VALUES OF TRANS TO THEIR ORIGINAL VALUE * 

C * * 

c ************************************************************* 


GEN19850 

GEN198 60 

GEN19870 

GEN19880 

GEN19890 

GEN19900 

GEN19910 

GEN19920 

GEN19930 

GEN19940 

GEN19950 

GEN19960 

GEN19970 

GEN19980 

GEN19990 

GEN20000 

GEN20010 

GEN20020 

GEN20030 

GEN20040 

GEN20050 

GEN20060 

GEN20070 

GEN20080 

GEN20090 

GEN20100 

GEN20110 

GEN20120 

GEN20130 

GEN20140 

GEN20150 

GEN20160 

GEN20170 

GEN20180 

GEN20190 

GEN20200 

GEN20210 

GEN20220 

GEN20230 

GEN20240 

GEN20250 

GEN20260 

GEN20270 

GEN20280 

GEN20290 

GEN20300 

GEN20310 

GEN20320 

GEN20330 

GEN20340 

GEN20350 

GEN20360 

GEN20370 

GEN20380 

GEN20390 

GEN20400 

GEN20410 

GEN20420 

GEN20430 

GEN20440 

GEN20450 

GEN20460 

GEN20470 

GEN20480 
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125 NN=NN+7 

TRANS B= TRANS 
TRANSC-TRAN S 
TRANSD-TRANS 
TRANSE-TRANS 
TRANS F-TRANS 
TRANSG-TRANS 
PHCHCK=0 
PHIT=PHITWO 

130 CONTINUE 

135 NUMBER=J-1 


C 

C 

C 

C 

C 

C 

C 

C 

C 


* 


*********** 

* 


THE FOLLOWING LIST OF ENTITY NUMBERING IS GIVEN SO * 
THAT IT IS EASIER FOR THE USER TO MAKE ANY CHANGES * 
IN THE FEM AFTER IT IS CREATED. THE LISTING * 
FACILITATES EASIER LOCATION OF THE ENTITIES THAT * 
ARE TO BE CHANGED. * 


* 


* 




WRITE (NO, 140) NUMBER 

FORMAT (' 0' , ' THE NUMBER OF RIB / CHANNEL SEGMENTS *' , 13) 
WRITE (20,*) NUMBER 
WRITE (NO,*) ' ' 

WRITE (NO,*) ' ' 

IF (REGION (J) . EQ . 4 ) THEN 

GIY ( J-l ) =AIY ( 1 ) 

GGIY(J-1)=AIY(1) 

GGGIY(J-1)=AIY(1) 

NIY ( J— 1 ) =AIY ( 1 ) 

NNIY (J-l) =AIY (1) 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


ENDIF 


*********************************** **********************^^ 
* 

* 

* END OF CYLINDRICAL REGION RIB/CHANNEL POINT * 

* CALCULATION * 

* (NOTE THAT THE POINT COORDINATES OF THE PORTS ARE * 

* CALCULATED IN INDIVIDUAL SUBROUTINES THAT ARE * 

* LOCATED AT THE END OF THIS PROGRAM) * 

* 

* ★★A************************************^^^*^^^^^^^^^^^^ 


* 

* BEGIN GENERATION OF THE UNIVERSAL FILE 

* 


****** 

* 

* 

* 

****** 


* 


GENERATE HEADING OF UNIVERSAL FILE * 
* * 
******************************** 


GEN20490 

GEN20500 

GEN20510 

GEN20520 

GEN20530 

GEN20540 

GEN20550 

GEN20560 

GEN20570 

GEN20580 

GEN20590 

GEN20600 

GEN20610 

GEN20 620 

GEN20630 

GEN20640 

GEN20650 

GEN20660 

GEN20670 

GEN20680 

GEN20690 

GEN20700 

GEN20710 

GEN2072 0 

GEN20730 

GEN20740 

GEN20750 

GEN20760 

GEN20770 

GEN20780 

GEN20790 

GEN20800 

GEN20810 

GEN20820 

GEN20830 

GEN20840 

GEN20850 

GEN20860 

GEN208 7 0 

GEN20880 

GEN208 90 

GEN20900 

GEN20910 

GEN20920 

GEN20930 

GEN20940 

GEN20950 

GEN20960 

GEN20970 

GEN20980 

GEN20990 

GEN21000 

GEN21010 

GEN21020 

GEN21030 

GEN21040 

GEN21050 

GEN21060 

GEN21070 

GEN21080 

GEN21090 

GEN21100 

GEN21110 

GEN21120 
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WRITE (12, 150) 

150 FORMAT (4X, '-1' ) 

WRITE ( 12 , 155) 

155 FORMAT (5X, '2' ) 

WRITE(12, 160) 

160 FORMAT (' IDEAS 2.2: MONITOR') 
WRITE (12, 150) 

WRITE (12, 150) 


C 

C 

C 

C 

C 

C 

C 


************************************************************* 
* * 

* BEGIN POINT COORDINATES GENERATION OF THE INNER AND * 

* OUTER SHELLS, RIBS, AND STIFFENED CHANNELS IN * 

* UNIVERSAL FORMAT * 

* * 
************************************************************* 


WRITE(12, 165) 
165 FORMAT (4X, '25') 


IF ( IEPQUE . EQ . 1 ) THEN 

TRANS =ABS (TRANS) 

XTRAN=BB/ COS (P20DEP ) 

GGIX ( IEP-1 ) =GIX ( IEP-1) +XTRAN 
GGIY (IEP-1) =GIY (IEP-1) 

XTRAN= (CC-BB) /COS (P20DEP) 

GGGIX (IEP-1) =GGIX (IEP-1) +XTRAN 
GGGIY (IEP-1) -GGIY (IEP-1) 

PHI3=ATAN(ABS (GGIY (IEP-1) +TRANS) /GGIX (IEP-1) ) 
CALL PALPSL (EE, RR, PI, PHI3, TRANS, ALPHA3) 

CALL THTASL (EE, RR, PI, ALPHA3, THETA3) 

GGIX ( IEP-1) -FINERX (ALPHA3, THETA3, BB) 

GGIY ( IEP-1) —FINERY (ALPHA3, THETA3, BB) 

PHI3=ATAN (ABS (GGIY (IEP-1) +TRANS) /GGIX(IEP-l) ) 

PHI4-P10DEP-PHI3 

PHl5=PHI3+PHI4/3 . 0 

PHl6=PHl3+2 ,0*PHI4/3.0 

CALL PALPSL (EE, RR, PI, PHI5, TRANS, ALPHA5) 

CALL THTASL (EE, RR, PI, ALPHA5, THETA5) 

CALL PALPSL (EE, RR, PI, PHI 6, TRANS, ALPHA6) 

CALL THTASL (EE, RR, PI, ALPHA6, THETA6) 

FFIX (IEP-1) =FINERX (ALPHA5, THETA5, BB) 

FFIY (IEP-1) --FINERY (ALPHA5, THETA5, BB) 

EEIX (IEP-1) -FINERX (ALPHA6, THETA6, BB) 

EEIY (IEP-1) —FINERY (ALPHA6, THETA6, BB) 

PHI7-ATAN (ABS (GGGIY (IEP-1) +TRANS) /GGGIX ( IEP-1) ) 
CALL PALPSL (EE, RR, PI, PHI7, TRANS, ALPHA7) 

CALL THTASL (EE, RR, PI , ALPHA7 , THETA7 ) 

GGGIX ( IEP-1 ) =F INERX (ALPHA7 , THETA7 , CC ) 

GGGIY ( IEP-1 ) —FINERY (ALPHA7 , THETA7 , CC) 

PHI7—ATAN (ABS (GGGIY ( IEP-1) +TRANS) /GGGIX (IEP-1) ) 


GEN21130 

GEN21140 

GEN21150 

GEN21160 

GEN21170 

GEN21180 

GEN21190 

GEN21200 

GEN21210 

GEN21220 

GEN21230 

GEN21240 

GEN21250 

GEN21260 

GEN21270 

GEN21280 

GEN21290 

GEN21300 

GEN21310 

GEN21320 

GEN21330 

GEN21340 

GEN21350 

GEN21360 

GEN21370 

GEN21380 

GEN21390 

GEN21400 

GEN21410 

GEN21420 

GEN21430 

GEN21440 

GEN21450 

GEN21460 

GEN21470 

GEN21480 

GEN21490 

GEN21500 

GEN21510 

GEN21520 

GEN21530 

GEN21540 

GEN21550 

GEN21560 

GEN21570 

GEN21580 

GEN21590 

GEN21600 

GEN21610 

GEN21620 

GEN21630 

GEN21640 

GEN21650 

GEN21660 

GEN21670 

GEN21680 

GEN21690 

GEN21700 

GEN21710 

GEN21720 

GEN21730 

GEN21740 

GEN21750 

GEN21760 
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generate . fortran 


Fri May 


# 

* 

# 


PHI8-P10DEP-PHI7 
PHl9=PHl7+PHl8/3.0 
PHI10=PHI7+2 . 0*PHl8/3 . 0 

tvv DD PI, PHI9, TRANS, ALPHA9) 

CALL PALPSL(EE f RR,fir q TH ETA9) 

CALL THTASL (EE,RR, PHI10, TRANS, ALPH10) 

CALL PALPSL (EE, RR, PP ' P "^ o METlO) 

CALL THTASL (EE, RR, PI , ALPHlO , THET1U ) 

FFF IX ( IEP - 1 ) =F INERX ( ALP H A9 , THET A9 , CC) 

FFFIX ( IEP-1) =-FINERY ( ALPHA9 , THETA9 , CC) 

_„ TV l TEP-1) =F INERX (ALPHlO , THETlO , CC) 

Seiy(iIp- 1)-”» ery<alph10 ' THET10 ' C ’ 

CALL EXHST (EE, SbSS, 
GGGIX(IEP-l) , GGGIY(1EP 1) ) 


TRANS=ABS (TRANS) 


170 


END IF 

DO 185 1 = 1 , NUMBER 


IPT=0 

ZZZ(I)=0.0 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 


(12,175) 

(12,175) 

(12,175) 

(12,175) 

(12, 175) 

(12,175) 

(12,175) 

(12, 175) 

(12,175) 

(12,175) 

(12, 175) 

(12, 175) 

(12, 175) 


IL, ICS, COLOR, BBBIX (I) , BBBIY (I) , ZZZ (I) 
TT+l ICS,C0L0R,BBIX(I) , BBIY(I) , ZZ ( 

iStl: i“ COLOR, BIX (I) , BIX II. , m 

il+3,ics,color,iix(I),iiy(ikzzz(i) 

IL+4, ICS, COLOR, IIIX(I) , IIIY(I) ' ZZZ m 

IL+5 , ICS , COLOR, CCCIX (I) , CCCIY < K^ZZ ( 
IL+6 , ICS , COLOR, CCIX ( I) , CCIY ( » » 

IL+10^ICS?COLOR^ODDIX(I) .DDDIx'd) 

^U, I lS:W,BDIX(I.,»IX<I>,«B 

IL+12, ICS, COLOR, DIX(I) ,DIY(I) ,Z 


IF WRITE^(12^ 17 5? ' I L+ 13^" ICS, COLOR, DRIX ( I) , DRIY (I) , ZZZ (I) 
IL=IL+1 

ENDIF 

WRITE (12, 175) 

WRITE (12 , 175) 

WRITE (12, 175) 

WRITE (12,175) 

WRITE (12, 175) 

IF S ■ iLXlCS, COLOR, ERIX (X. . ERIT.I. 
il=il+i 



ENDIF 


SJ 


WRITE (12,175) 
WRITE (12, 175) 
WRITE (12, 175) 


IL+18, ICS, COLOR, LIX(I),LIX(I>,Z ee W (I) 


GEN21770 

GEN21780 

GEN21790 

GEN21800 

GEN21810 

GEN21820 

GEN21830 

GEN21840 

GEN21850 

GEN21860 

GEN21870 

GEN21880 

GEN21890 

GEN21900 

GEN21910 

GEN21920 

GEN21930 

GEN21940 

GEN21950 

GEN21960 

GEN21970 

GEN21980 

GEN21990 

GEN22000 

GEN22010 

GEN22020 

GEN22030 

GEN2 2040 

GEN22050 

GEN22060 

GEN22070 

GEN22080 

GEN22090 

GEN22100 

GEN22110 

GEN22120 

GEN22130 

GEN22140 

GEN22150 

GEN22160 

GEN22170 

GEN22180 

GEN22190 

GEN22200 

GEN22210 

GEN22220 

GEN22230 

GEN22240 

GEN22250 

GEN22260 

GEN22270 

GEN22280 

GEN22290 

GEN22300 

GEN22310 

GEN22320 

GEN22330 

GEN22340 

GEN22350 

GEN22360 

GEN22370 

GEN22380 

GEN22390 

GEN22400 
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WRITE (12, 175) IL+21, ICS, COLOR, FFIX ( I) , FFIY (I) , ZZZ (I) 

WRITE (12, 175) IL+22 , ICS, COLOR, FIX ( I) ,FIY(I) ,ZZZ (I) 

IF ( RIBTYP ( I ) . EQ . 2 ) THEN 

WRITE(12, 175) IL+2 3 , ICS , COLOR, FRIX ( I ) ,FRIY(I) ,ZZZ(I) 
IL=IL+1 


ENDIF 

WRITE (12, 175) IL+23, ICS, COLOR, MIX ( I) ,MIY(I) ,ZZZ (I) 
WRITE (12, 175) IL+2 4, ICS, COLOR, MMIX (I) , MMIY (I) , ZZZ (I) 
WRITE (12,175) IL+25, ICS, COLOR, GGGIX ( I) , GGGIY ( I) , ZZZ (I) 

WRITE (12, 175) IL+2 6, ICS, COLOR, GGIX (I) ,GGIY(I) , ZZZ (I) 
WRITE(12, 175) IL+27, ICS, COLOR, GIX(I) ,GIY(I) ,ZZZ(I) 

IF (RIBTYP (I) .EQ. 2) THEN 

WRITE (12, 175) IL+2 8 , ICS, COLOR, GRIX (I) , GRIY (I) , ZZZ (I) 
IL=IL+1 


ENDIF 

WRITE (12, 175) IL+2 8 , ICS, COLOR, NIX (I) , NIY (I) , ZZZ ( I) 
WRITE (12, 175) IL+2 9, ICS , COLOR, NNIX ( I) ,NNIY(I) ,ZZZ(I) 

175 FORMAT (2I10,10X,I10,3E13.5) 

IL=IL+30 
ZZZ (I) =DEPTH 


IPT=IPT+1 

IF (IPT . LT . 2 ) GO TO 170 

IF (CNLTYP ( I ) . EQ . 2 ) THEN 
RZZZ (I) “DEPTH/2 . 0 


IF (I .EQ. 1) THEN 

WRITE (12, 175) 

ELSE 

WRITE (12, 175) 

ENDIF 


IL, ICS, COLOR, AIX (I) , AIY (I) ,RZZZ (I) 

IL, ICS, COLOR, GIX(I-l) , GIY ( 1-1) , RZZZ ( I ) 


WRITE (12, 175) 
WRITE (12, 175) 
WRITE (12, 175) 
WRITE(12, 175) 
WRITE (12, 175) 
WRITE (12, 175) 
WRITE (12, 175) 


IL+1, ICS , COLOR, HIX ( I) , HIY ( I) , RZZZ (I) 

IL+2, ICS, COLOR,BIX(I) ,BIY(I) ,RZZZ(I) 

IL+3, ICS, COLOR, IIX (I) ,IIY(I) ,RZZZ(I) 
IL+4, ICS, COLOR, CIX(I) , CIY (I) ,RZZZ(I) 
IL+5, ICS, COLOR, JIX(I) , JIY(I) , RZZZ (I) 
IL+6, ICS, COLOR, DIX(I) ,DIY (I) ,RZZZ (I) 
IL+7, ICS, COLOR, KIX(I) ,KIY(I) ,RZZZ(I) 


IL=IL+8 


ENDIF 


185 CONTINUE 


C 

C 


LASTPT=IL-1 

TEMP=LASTPT 

NPRC=LASTPT 

WRITE (NO, *) 'NUMER OF POINTS 


IN RC SEGMENTS = ' ,NPRC 


* 


* 


GEN22410 

GEN22420 

GEN22430 

GEN22440 

GEN22450 

GEN22460 

GEN22470 

GEN22480 

GEN22490 

GEN22500 

GEN22510 

GEN22520 

GEN22530 

GEN22540 

GEN22550 

GEN22560 

GEN22570 

GEN22580 

GEN22590 

GEN22600 

GEN22610 

GEN22620 

GEN22630 

GEN22640 

GEN22650 

GEN22660 

GEN22670 

GEN22680 

GEN22690 

GEN22700 

GEN22710 

GEN22720 

GEN22730 

GEN22740 

GEN22750 

GEN22760 

GEN22770 

GEN22780 

GEN22790 

GEN22800 

GEN22810 

GEN22820 

GEN22830 

GEN22840 

GEN22850 

GEN22860 

GEN22870 

GEN22880 

GEN22890 

GEN22900 

GEN22910 

GEN22920 

GEN22930 

GEN22940 

GEN22950 

GEN22960 

GEN22970 

GEN22980 

GEN22990 

GEN23000 

GEN23010 

GEN23020 

GEN23030 

GEN23040 



c 

c 

c 
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* GENERATE POINT COORDINATES OF THE EXHAUST PORT * 

★ 

************************************************************* 
IF ( (IEPQUE.EQ.l) .OR. (IIPQUE.EQ. 1) ) THEN 
IF (CCC.NE.0.0) THEN 
IEND=7 


ELSE 


IEND=6 


END IF 


DO 210 JJ=1 , TEND 


PNTT=LASTPT 
WRITE (12,205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12,205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12,205) 
WRITE (12,205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12,205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12,205) 


LASTPT+1, ICS, COLOR, XI (JJ) ,Y1 (JJ) ,Z1 (JJ) 
LASTPT+2 , ICS, COLOR, X2 (JJ) , Y2 (JJ) , Z2 (JJ) 
LASTPT+3 , ICS, COLOR, X3 ( JJ) , Y3 ( JJ) , Z3 ( JJ) 
LASTPT+4, ICS, COLOR, X4 (JJ) , Y4 (JJ) , Z4 ( JJ) 
LASTPT+5, ICS, COLOR, X5 (JJ) , Y5 (JJ) , Z5 ( JJ) 
LASTPT+6, ICS, COLOR, X6 ( JJ) , Y6 ( JJ) , Z6 ( JJ) 
LASTPT+7 , ICS, COLOR, X7 (JJ) , Y7 (JJ) , Z7 (JJ) 
LASTPT+8 , ICS, COLOR, X8 (JJ) , Y8 (JJ) , Z8 (JJ) 
LASTPT+9, ICS, COLOR, X9 ( JJ) , Y9 ( JJ) , Z9 ( JJ) 
LASTPT+1 0, ICS, COLOR, XlO ( JJ) , Y10 ( JJ) , Z10 ( JJ) 
LASTPT+1 1, ICS, COLOR, Xll (JJ) , Yll (JJ) ,Z11 (JJ) 
LASTPT+12, ICS, COLOR, X12 (JJ) ,Y12 (JJ) ,Z12 (JJ) 
LASTPT+13, ICS, COLOR, X13 (JJ) , Y13 (JJ) ,Z13 (JJ) 
LASTPT+1 4 , ICS, COLOR, X14 (JJ) ,Y14 (JJ) ,Z14 (JJ) 
LASTPT+15, ICS, COLOR, X15 (JJ) , Y15 (JJ) , Z15 (JJ) 
LASTPT+1 6, ICS, COLOR, XI 6 (JJ) , Y16 (JJ) , Z16 (JJ) 
LASTPT + 17, ICS, COLOR, X17 (JJ) , Y17 ( JJ) , Z17 (JJ) 
LASTPT+1 8, ICS, COLOR, XI 8 (JJ) , Y18 (JJ) , Z18 ( JJ) 
LASTPT+19, ICS, COLOR, X19 ( JJ) , Y19 ( JJ) , Z19 (JJ) 
LASTPT+20, ICS, COLOR, X20 ( JJ) , Y20 ( JJ) , Z20 (JJ) 
LASTPT+2 1, ICS, COLOR, X21 ( JJ) , Y21 (JJ) , Z21 (JJ) 
LASTPT+22, ICS, COLOR, X22 (JJ) , Y22 (JJ) , Z22 (JJ) 
LASTPT+23, ICS, COLOR, X23 (JJ) ,Y23(JJ) ,Z23(JJ) 
LASTPT+2 4, ICS, COLOR, X24 (JJ) , Y24 (JJ) , Z24 ( JJ) 


IF( (JJ.EQ.3) .OR. (JJ.EQ.4) ) GO TO 190 

WRITE (12,205) LASTPT+2 5, ICS, COLOR, X25 ( JJ) , Y25 (JJ) , Z25 (JJ) 
WRITE (12, 205) LASTPT+26, ICS, COLOR, X26 (JJ) , Y26 (JJ) , Z26 (JJ) 
WRITE (12, 205) LASTPT+27, ICS, COLOR, X27 (JJ) ,Y27 (JJ) , Z27 (JJ) 
WRITE (12, 205) LASTPT+28, ICS, COLOR, X28 (JJ) ,Y28 (JJ) ,Z28 (JJ) 
WRITE (12, 205) LASTPT+29, ICS, COLOR, X29 (JJ) , Y29 (JJ) , Z29 (JJ) 
WRITE (12, 205) LASTPT+30, ICS, COLOR, X30 (JJ) , Y30 (JJ) , Z30 (JJ) 
LASTPT-LASTPT+6 


190 LASTPT=LASTPT-6 

IF ( (JJ.EQ.3) -OR. (JJ.EQ.4) ) GO TO 195 

WRITE (12, 205) LASTPT+31, ICS, COLOR, X31 (JJ) , Y31 (JJ) , Z31 (JJ) 
WRITE (12,205) LASTPT+32 , ICS, COLOR, X32 (JJ) ,Y32 (JJ) , Z32 (JJ) 
WRITE (12, 205) LASTPT+33, ICS, COLOR, X33 ( JJ) , Y33 ( JJ) , Z33 ( JJ) 
WRITE (12, 205) LASTPT+34, ICS, COLOR, X34 (JJ) , Y34 (JJ) , Z34 (JJ) 
LASTPT=LASTPT+4 


195 LASTPT=LASTPT-4 


GEN23050 

GEN23060 

GEN23070 

GEN23080 

GEN23090 

GEN23100 

GEN23110 

GEN23120 

GEN23130 

GEN23140 

GEN23150 

GEN23160 

GEN23170 

GEN23180 

GEN23190 

GEN23200 

GEN23210 

GEN23220 

GEN23230 

GEN23240 

GEN23250 

GEN23260 

GEN23270 

GEN23280 

GEN23290 

GEN23300 

GEN23310 

GEN23320 

GEN23330 

GEN23340 

GEN23350 

GEN23360 

GEN23370 

GEN23380 

GEN23390 

GEN23400 

GEN23410 

GEN23420 

GEN23430 

GEN23440 

GEN23450 

GEN23460 

GEN23470 

GEN23480 

GEN23490 

GEN23500 

GEN23510 

GEN23520 

GEN23530 

GEN23540 

GEN23550 

GEN23560 

GEN2357 0 

GEN23580 

GEN23590 

GEN23600 

GEN23610 

GEN23620 

GEN23630 

GEN23640 

GEN23650 

GEN23660 

GEN23670 

GEN23680 
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IF ( (JJ.EQ.3) .OR. (JJ.EQ.4) .OR. (JJ.EQ.5) . 
OR. (JJ.EQ. 6) .OR. (JJ.EQ.7) ) GO TO 200 


WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 

WRITE 


(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 

(12,205) 


LASTPT+35, 
LASTPT+36, 
LASTPT+37, 
LASTPT+38, 
LASTPT+39, 
LASTPT+40, 
LASTPT+41, 
LASTPT+42 , 
LASTPT+43, 
LASTPT+44, 
LASTPT+45, 
LASTPT+46, 
LASTPT+47 , 
LASTPT+48 , 
LASTPT+49, 


ICS, 

ICS, 

ICS, 

ICS, 

ICS, 

ICS, 

ICS, 

ICS, 

ICS, 

ICS, 

ICS, 

ICS, 

ICS, 

ICS, 

ICS, 


COLOR, X35 
COLOR, X3 6 
COLOR, X37 
COLOR, X38 
COLOR, X3 9 
COLOR, X40 
COLOR, X41 
COLOR, X42 
COLOR, X43 
COLOR, X4 4 
COLOR, X45 
COLOR, X4 6 
COLOR, X47 
COLOR, X48 
COLOR, X4 9 


(JJ) , 
(JJ), 
(JJ), 
(JJ), 
(JJ), 
(JJ), 
(JJ), 
(JJ), 
(JJ), 
(JJ), 
(JJ), 
(JJ) , 
(JJ), 
(JJ), 
(JJ), 


Y35 ( JJ) 
Y36 ( JJ) 
Y37 (JJ) 
Y38 ( JJ) 
Y39 ( JJ) 
Y40 (JJ) 
Y41 (JJ) 
Y42 ( JJ) 
Y43 (JJ) 
Y44 (JJ) 
Y45 ( JJ) 
Y46 (JJ) 
Y47 (JJ) 
Y48 (JJ) 
Y49 ( JJ) 


, Z35 ( JJ) 
, Z36 ( JJ) 
, Z37 ( JJ) 
, Z38 ( JJ) 
, Z39 ( JJ) 
, Z40 { JJ) 
, Z41 ( JJ) 
, Z42 ( JJ) 
, Z43 ( JJ) 
, Z44 ( JJ) 
, Z45 ( JJ) 
, Z46 ( JJ) 
, Z47 ( JJ) 
, Z48 ( JJ) 
, Z49 ( JJ) 


LASTPT=LASTPT+15 


200 LASTPT=LASTPT-15 


205 FORMAT (2110, 10X, 110, 3E13. 5) 
LASTPT=LASTPT+49 
PNTB=LASTPT 
NPTEP ( JJ) -PNTB-PNTT 


210 CONTINUE 


END IF 

NPEP=LASTP T-NPRC 

WRITE (NO,*) ' NUMBER OF POINTS IN EXHAUST PORT - ' , NPEP 

Q ************************************************************* 

C * * 

C * GENERATE POINT COORDINATES OF THE INTAKE PORT * 

C * * 

C ************************************************************* 


IF (IIPQUE.EQ. 1) THEN 

CALL INTKE (EE, RR, R, PI , RINPT, TINPT, AA, BB, CC, D, DEPTH, 
# TRANS, PHI1IP, PHI2 IP, P20DIP, P1NWIP, LINPT, WINPT, NO) 

DO 225 JJ- 1,1 END 


PNTT— LASTPT 
WRITE (12, 205) 
WRITE (12,205) 
WRITE (12, 205) 
WRITE (12,205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12,205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 
WRITE (12, 205) 


LASTPT+1, ICS, COLOR, XI (JJ) ,Y1 (JJ) ,Z1(JJ) 
LASTPT+2, ICS, COLOR, X2 ( JJ) , Y2 ( JJ) , Z2 ( JJ) 
LASTPT+3 , ICS, COLOR, X3 ( JJ) , Y3 ( JJ) , Z3 ( JJ) 
LASTPT+4 , ICS, COLOR, X4 ( JJ) , Y4 ( JJ) , Z4 ( JJ) 
LASTPT+5, ICS, COLOR, X5 ( JJ) , Y5 ( JJ) , Z5 ( JJ) 
LASTPT+6, ICS, COLOR, X6 ( JJ) , Y6 ( JJ) , Z6 ( JJ) 
LASTPT+7, ICS, COLOR, X7 (JJ) , Y7 (JJ) , Z7 (JJ) 
LASTPT+8, ICS, COLOR, X8 (JJ) , Y8 (JJ) , Z8 (JJ) 
LASTPT+9, ICS, COLOR, X9 ( JJ) , Y9 ( JJ) , Z9 ( JJ) 
LASTPT+10, ICS, COLOR, X10 (JJ) ,Y10 (JJ) , Z10 (JJ) 
LASTPT+1 1, ICS, COLOR, Xll (JJ) ,Y11 (JJ) ,Z11 (JJ) 
LASTPT+12, ICS, COLOR, X12 (JJ) ,Y12 (JJ) ,Z12 (JJ) 
LASTPT+13, ICS, COLOR, X13 (JJ) , Y13 (JJ) , Z13 (JJ) 
LASTPT+14, ICS, COLOR, X14 ( JJ) , Y14 (JJ) , Z14 (JJ) 
LASTPT+15, ICS, COLOR, X15 ( JJ) , Y15 (JJ) , Z15 (JJ) 
LASTPT+1 6, ICS, COLOR, X16 ( JJ) , Y16 ( JJ) , Z16 ( JJ) 


GEN23690 
GEN23700 
GEN23710 
GEN23720 
GEN23730 
GEN23740 
GEN23750 
GEN23760 
GEN23770 
GEN23780 
GEN23790 
GEN23800 
GEN23810 
GEN23820 
GEN23830 
GEN23840 
GEN23850 
GEN238 60 
GEN23870 
GEN23880 
GEN23890 
GEN23900 
GEN23910 
GEN23920 
GEN23930 
GEN23940 
GEN23950 
GEN23960 
GEN23970 
GEN23980 
GEN23990 
GEN24000 
GEN24010 
GEN24020 
GEN24030 
GEN24040 
GEN24050 
GEN24060 
GEN24070 
GEN24080 
GEN24090 
GEN24100 
GEN24110 
GEN24120 
GEN24130 
GEN24140 
GEN24150 
GEN24160 
GEN24170 
GEN24180 
GEN24190 
GEN24200 
GEN24210 
GEN24220 
GEN24230 
GEN24240 
GEN24250 
GEN24260 
GEN24270 
GEN24280 
GEN24290 
GEN24300 
GEN24310 
GEN24320 
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WRITE (12, 205) LASTPT+17, ICS, COLOR, X17 (JJ) , Y17 (JJ) , Z17 (JJ) 
WRITE (12, 205) LASTPT+18, ICS, COLOR, XI 8 ( JJ) , Y18 ( JJ) , Z18 ( JJ) 
WRITE (12,205) LASTPT+19, ICS, COLOR, Xl 9 (JJ) , Y19 (JJ) , Z19 (JJ) 
WRITE (12, 205) LASTPT+20, ICS, COLOR, X20 (JJ) , Y20 (JJ) , Z20 (JJ) 
WRITE (12, 205) LASTPT+21, ICS, COLOR, X21 (JJ) , Y21 (JJ) , Z21 (JJ) 
WRITE (12, 205) LASTPT+22, ICS, COLOR, X22 ( JJ) , Y22 (JJ) , Z22 ( JJ) 
WRITE (12, 205) LASTPT+23, ICS, COLOR, X23 ( JJ) , Y23 (JJ) , Z23 (JJ) 
WRITE (12, 205) LASTPT+24, ICS, COLOR, X24 (JJ) , Y24 (JJ) ,Z24 (JJ) 
WRITE (12, 205) LASTPT+2 5 , ICS, COLOR, X25 (JJ) , Y25 (JJ) , Z25 (JJ) 
WRITE (12,205) LASTPT+2 6, ICS, COLOR, X2 6 ( JJ) , Y26 (JJ) , Z26 (JJ) 

IF ( (JJ.EQ. 3) .OR. (JJ.EQ. 4) ) GO TO 215 

WRITE (12,205) LASTPT+27 , ICS, COLOR, X27 (JJ) ,Y27 (JJ) , Z27 (JJ) 
WRITE (12, 205) LASTPT+28, ICS, COLOR, X28 (JJ) , Y28 (JJ) ,Z28 (JJ) 
WRITE (12, 205) LASTPT+2 9, ICS, COLOR, X2 9 ( JJ) , Y29 ( JJ) , Z29 (JJ) 
WRITE (12, 205) LASTPT+30, ICS, COLOR, X30 ( JJ) , Y30 (JJ) , Z30 (JJ) 
WRITE (12,205) LASTPT+31, ICS, COLOR, X31 ( JJ) , Y31 ( JJ) , Z31 ( JJ) 
WRITE (12, 205) LASTPT+32, ICS, COLOR, X32 (JJ) , Y32 (JJ) , Z32 (JJ) 
WRITE (12, 205) LASTPT+33, ICS , COLOR, X33 (JJ) ,Y33(JJ) ,Z33 (JJ) 
WRITE (12, 205) LASTPT+34, ICS, COLOR, X34 (JJ) , Y34 (JJ) ,Z34 (JJ) 
WRITE (12,205) LASTPT+35, ICS, COLOR, X35 (JJ) ,Y35(JJ) , Z35 ( JJ) 
WRITE (12, 205) LASTPT+36, ICS, COLOR, X3 6 (JJ) , Y36 (JJ) , Z36 (JJ) 
WRITE (12, 205) LASTPT+37, ICS, COLOR, X37 (JJ) , Y37 (JJ) , Z37 (JJ) 
WRITE(12, 205) LASTPT+38 , ICS, COLOR, X38 (JJ) ,Y38 (JJ) ,Z38 (JJ) 
LASTPT=LASTPT+12 


215 LASTPT=LASTPT-12 

IF ( (JJ.EQ. 3) .OR. (JJ.EQ. 4) ) GO TO 220 

WRITE (12,205) LASTPT+39, ICS, COLOR, X39 ( JJ) , Y39 ( JJ) , Z39 ( JJ) 
WRITE (12, 205) LASTPT+40, ICS, COLOR, X40 (JJ) , Y40 (JJ) , Z40 (JJ) 
WRITE (12, 205) LASTPT+41, ICS, COLOR, X41 (JJ) , Y41 (JJ) , Z41 (JJ) 
WRITE (12, 205) LASTPT+42, ICS, COLOR, X42 (JJ) ,Y42 (JJ) ,Z42 (JJ) 
WRITE (12, 205) LASTPT+43, ICS, COLOR, X43 (JJ) , Y43 (JJ) , Z43 (JJ) 
WRITE (12, 205) LASTPT+44, ICS, COLOR, X44 (JJ) , Y44 (JJ) , Z44 (JJ) 
WRITE (12, 205) LASTPT+45, ICS, COLOR, X45 (JJ) , Y45 (JJ) ,Z45 (JJ) 
WRITE (12,205) LASTPT+46, ICS, COLOR, X4 6 (JJ) , Y46 (JJ) , Z46 (JJ) 
WRITE (12,205) LASTPT+47 , ICS, COLOR, X47 (JJ) , Y47 (JJ) , Z47 (JJ) 
WRITE (12,205) LASTPT+48, ICS, COLOR, X48 ( JJ) , Y48 (JJ) , Z48 ( JJ) 
WRITE (12, 205) LASTPT+49, ICS, COLOR, X4 9 (JJ) , Y49 (JJ) , Z49 (JJ) 
WRITE (12,205) LASTPT+50 , ICS, COLOR, X50 (JJ) ,Y50 (JJ) ,Z50 (JJ) 
WRITE (12, 205) LASTPT+51, ICS, COLOR, X51 ( JJ) , Y51 ( JJ) , Z51 ( JJ) 
WRITE (12, 205) LASTPT+52 , ICS, COLOR, X52 (JJ) , Y52 (JJ) , Z52 (JJ) 
WRITE (12, 205) LASTPT+53, ICS, COLOR, X53 ( JJ) , Y53 ( JJ) , Z53 ( JJ) 
LASTPT-LASTPT+15 


220 LASTPT=LASTPT-15 

LASTPT=LASTPT+53 

PNTB=LASTPT 

NPTIP ( JJ) =PNTB-PNTT 

225 CONTINUE 


ENDIF 


NPTTL=LASTPT 


NPIP=LASTPT-NPRC-NPEP 

WRITE (NO,*) 'NUMBER OF POINTS IN INTAKE PORT 






GEN24330 

GEN24340 

GEN24350 

GEN24360 

GEN24370 

GEN24380 

GEN24390 

GEN24400 

GEN24410 

GEN24420 

GEN24430 

GEN24440 

GEN24450 

GEN24460 

GEN24470 

GEN24480 

GEN24490 

GEN24500 

GEN24510 

GEN24520 

GEN24530 

GEN24540 

GEN24550 

GEN24560 

GEN24570 

GEN24580 

GEN24590 

GEN24600 

GEN24610 

GEN24620 

GEN24630 

GEN24640 

GEN24650 

GEN24660 

GEN24670 

GEN2 4680 

GEN24690 

GEN24700 

GEN24710 

GEN24720 

GEN24730 

GEN24740 

GEN24750 

GEN24760 

GEN24770 

GEN24780 

GEN24790 

GEN24800 

GEN24810 

GEN24820 

GEN24830 

GEN24840 

GEN24850 

GEN24860 

GEN24870 

GEN24880 

GEN24890 

GEN24900 

GEN24910 

GEN24920 

GEN24930 

GEN24940 

GEN24950 

GEN24960 
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C 

c 

c 

c 


GENERATE POINT COORDINATES OF THE SPARK PLUG 




* 

* 

* 


IF (ISP.GT.O) THEN 
DO 235 J=1,ISP 

CALL SPRKPG (EE, RR, R, PI, Y1SP ( J) , Y2SP ( J) , PHI1SP ( J) , 

# PHI2SP (J) ,RSP (J) , IEND,AA,BB,CC,D, DEPTH, 

# TRANS, REGION ( ISPRK ( J) ) , ICHK, NO) 

DO 230 JJ=1, IEND 

PNTT=LASTPT 

WRITE (12, 205) LASTPT+1, ICS, COLOR, XI ( JJ) , Y1 ( JJ) , Z1 (JJ) 

WRITE (12, 205) LASTPT+2 , ICS, COLOR, X2 ( JJ) , Y2 ( JJ) , Z2 ( JJ) 

WRITE (12, 205) LASTPT+3 , ICS, COLOR, X3 (JJ) ,Y3 (JJ) ,Z3(JJ) 

WRITE (12, 205) LASTPT+4, ICS, COLOR, X4 ( JJ) , Y4 (JJ) , Z4 (JJ) 

WRITE (12, 205) LASTPT+5, ICS, COLOR, X5 ( JJ) , Y5 ( JJ) , Z5 (JJ) 

WRITE (12, 205) LASTPT+6, ICS, COLOR, X6 (JJ.) ,Y6 (JJ) ,Z6(JJ) 

WRITE (12, 205) LASTPT+7, ICS, COLOR, X7 (JJ) ,Y7 (JJ) ,Z7(JJ) 

WRITE (12, 205) LASTPT+8, ICS, COLOR, X8 (JJ) , Y8 ( JJ) , Z8 (JJ) 

WRITE (12, 205) LASTPT+9, ICS, COLOR, X9 ( JJ) , Y9 ( JJ) , Z9 (JJ) 

WRITE (12, 205) LASTPT+10, ICS, COLOR, X10 (JJ) ,Y10 (JJ) ,Z10(JJ) 
WRITE (12, 205) LASTPT+11, ICS, COLOR, Xll (JJ) , Yll ( JJ) , Zll ( JJ) 
WRITE (12,205) LASTPT+12, ICS, COLOR, X12 ( JJ) , Y12 (JJ) , Z12 ( JJ) 
WRITE (12, 205) LASTPT+13, ICS, COLOR, X13 ( JJ) , Y13 ( JJ) , Z13 ( JJ) 
WRITE (12, 205) LASTPT+1 4, ICS, COLOR, XI 4 ( JJ) , Y14 ( JJ) , Z14 (JJ) 
WRITE (12, 205) LASTPT+1 5, ICS, COLOR, X15 (JJ) , Y15 (JJ) , Z15 ( JJ) 
WRITE (12, 205) LASTPT+16, ICS, COLOR, X16 (JJ) , Y16 (JJ) , Z16 ( JJ) 
WRITE (12, 205) LASTPT+17 , ICS, COLOR, X17 ( JJ) , Y17 ( JJ) , Z17 ( JJ) 
WRITE (12, 205) LASTPT+18, ICS, COLOR, X18 (JJ) ,Y18 (JJ) ,Z18 (JJ) 
WRITE (12, 205) LASTPT+19, ICS, COLOR, X19 ( JJ) , Y19 ( JJ) , Z19 ( JJ) 
WRITE (12, 205) LASTPT+2 0, ICS, COLOR, X20 ( JJ) , Y20 (JJ) , Z20 (JJ) 
WRITE (12,205) LASTPT+2 1, ICS, COLOR, X2l ( JJ) , Y2l ( JJ) , Z21 (JJ) 
WRITE (12, 205) LASTPT+22, ICS, COLOR, X22 (JJ) , Y22 ( JJ) , Z22 (JJ) 
WRITE (12, 205) LASTPT+23, ICS, COLOR, X23 ( JJ) , Y23 ( JJ) , Z23 ( JJ) 

WRITE (12, 205) LASTPT+24, ICS, COLOR, X24 ( JJ) , Y24 ( JJ) , Z24 { JJ) 

WRITE (12, 205) LASTPT+25, ICS, COLOR, X25 ( JJ) , Y25 ( JJ) , Z25 ( JJ) 

WRITE (12, 205) LASTPT+2 6, ICS, COLOR, X2 6 ( JJ) , Y26 ( JJ) , Z26 ( JJ) 

WRITE (12, 205) LASTPT+27 , ICS, COLOR, X27 ( JJ) , Y27 ( JJ) , Z27 ( JJ) 

WRITE (12, 205) LASTPT+28, ICS, COLOR, X28 ( JJ) , Y28 (JJ) , Z28 (JJ) 

WRITE (12,205) LASTPT+2 9, ICS, COLOR, X2 9 ( JJ) , Y2 9 ( JJ) , Z2 9 ( JJ) 

WRITE (12, 205) LASTPT+30, ICS, COLOR, X30 ( JJ) , Y30 ( JJ) , Z30 ( JJ) 

LASTPT— LASTPT+3 0 

PNTB=LASTPT 

NPTSP { JJ) =PNTB-PNTT 

230 CONTINUE 

235 CONTINUE 


NPSP=LASTPT-NPRC“NPEP-NP IP 

WRITE (NO,*) 'NUMBER OF POINTS IN SPARK PLUG(S) - ',NPSP 
END IF 


WRITE (NO,*) 'TOTAL 
WRITE (NO, *) ' ' 

WRITE (NO, * ) ' ' 


NUMBER OF POINTS = 


' f LASTPT 


GEN24970 

GEN24980 

GEN24990 

GEN25000 

GEN25010 

GEN25020 

GEN25030 

GEN250 40 

GEN25050 

GEN250 60 

GEN25070 

GEN25080 

GEN250 90 

GEN25100 

GEN25110 

GEN25120 

GEN25130 

GEN25140 

GEN25150 

GEN25160 

GEN25170 

GEN25180 

GEN25190 

GEN25200 

GEN25210 

GEN25220 

GEN25230 

GEN25240 

GEN25250 

GEN252 60 

GEN25270 

GEN25280 

GEN25290 

GEN25300 

GEN25310 

GEN25320 

GEN25330 

GEN25340 

GEN25350 

GEN25360 

GEN25370 

GEN25380 

GEN25390 

GEN25400 

GEN2541 0 

GEN25420 

GEN25430 

GEN25440 

GEN25450 

GEN25460 

GEN25470 

GEN25480 

GEN254 90 

GEN2550 0 

GEN25510 

GEN25520 

GEN25530 

GEN25540 

GEN25550 

GEN255 60 

GEN2557 0 

GEN25580 

GEN25590 

GEN25600 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 

c 

c 

c 


LASTPT=TEMP 
TEMP1=TEMP 
WRITE (12/ 150) 
WRITE ( 12 , 150) 


generate . fortran * -- * — j 

WRITE (NO,*) 'POINT LABELS OF RC SEGMENTS ARE 1 TO',NPRC GEN25610 

WRITE (NO *) 'POINT LABELS OF EXHST PORT ARE' , NPRC+1, ' TO' , NPEP+NPRC GEN25620 
WRITE (NO,*) 'POINT LABELS OF INTKE PORT ARE' , NPRC+NPEP+1, ' TO' , NPIP+GEN25630 

#NPRC+NPEP GEN25640 

WRITE (NO *) 'POINT LABELS OF SPRK PLUGS ARE' , NPRC+NPEP+NPIP+1 , ' TO' , GEN25650 

#NPSP+NPRC+NPEP+NPIP rEN25670 

: : SH2S 

WRITE (NO, ) GEN25690 

GEN25700 
GEN25710 
GEN25720 
GEN25730 
GEN25740 
GEN25750 
GEN25760 
GEN25770 
GEN25780 
GEN25790 
GEN25800 
GEN25810 
GEN25820 
GEN25830 
GEN25840 
GEN25850 
GEN25860 
GEN25870 
GEN25880 
GEN25890 
GEN25900 
GEN25910 
GEN25920 
GEN25930 
GEN25940 
GEN25950 
GEN25960 
GEN25970 
GEN25980 
GEN25990 
GEN26000 
GEN26010 
GEN26020 
GEN26030 
, GEN26040 

GEN26050 
GEN26060 

DIMENSION NLNEP ( 7 ) , NLNEP 1 (7) , NLNIP (7) ,NLNIP1 (7) ,NSREP (7) ,NSRIP (7) GEN26070 

* ,NLNIP2 (7) ,NSIP2 (7) ,NLNSP (7) ,NSRSP (7) ,NSIP3 (7) GEN26080 

* ' GEN26090 

COMMON / MAIN2 / CNLTYP (100) ,RIBTYP (100) ,NPTEP (7) ,NPTIP (7) GEN26100 

* NPTSP (7 ) , NPTTL, ISP, IVOLR (25) , IVOLC (25) , TCHNL, CCC GEN26110 

* ' GEN26120 

INTEGER PT1, PT2, PT3, PT4, RIBTYP , CNLTYP , SDC 

, SOLID, COLOR, START, STOP, COUNT, SPLINE 

, SPENTC, LNENTC, DASH, GRADE, SURFAC, EDI , ED2, ED3, ED 4 
, VOLUME, SUR1, SUR2 , SUR3, SUR4 , SUR5, SUR6, SLSLVR 
, SURT , SURB , EDGE , TEMP ID , TEMP 1 1 


************************************************************* 

* 

* 

* END GENERATION OF THE POINT COORDINATES * 

* 

************************************************************* 

************************************************************* 

* 

* 

* BEGIN LINE GENERATION OF THE INNER AND OUTER SHELLS, * 

* RIBS# AND STIFFENED CHANNELS IN UNIVERSAL FORMAT * 

' * 

* 

************************************************************* 
CALL COIN (NO) 

CALL FORGEN (COLOR, SOLID , DASH, GRADE, NUMBER, TEMP, TEMPI, 

# IEND, LASTPT, IEPQUE, IIPQUE, SDC, NO, ICONTI) 

CALL MNE (NO) 

CALL GO (ICONTI) 

STOP 

END 

************************************************************* 

* 

* 

* BEGIN SUBROUTINE LIBRARY * 

★ 

* 

************************************************************* 

SUBROUTINE FORGEN (COLOR, SOLID, DASH, GRADE, NUMBER, TEMP , TEMPI , 

# IEND, LASTPT, IEPQUE, IIPQUE, SDC, NO, ICONTI) 


# 

# 

* 

# 


WRITE (12,240) 
240 FORMAT (4X, '26' ) 
245 FORMAT ( 4X, '-1' ) 

LINE=1 

START=11 


GEN26130 

GEN26140 

GEN26150 

GEN26160 

GEN26170 

GEN26180 

GEN26190 

GEN26200 

GEN26210 

GEN26220 

GEN26230 

GEN26240 
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WRITE ( 12 , 250 ) LINE, COLOR, SOLID, START, STOP 
250 FORMAT (5110) 

DO 285 1-1, NUMBER 

COUNT=0 

IF (RIBTYP (I) . EQ . 1 ) THEN 
255 DO 260 J=l, 3 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

260 CONTINUE 

START=START-3 

STOP=STOP+26 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
DO 265 J=l, 4 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID , START, STOP 

265 CONTINUE 

START=START+2 6 

STOP=STOP-3 

LINE=LINE+1 

WRITE (12,250) LINE , COLOR, SOLID, START , STOP 
DO 270 J=l, 3 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
270 CONTINUE 

COUNT=COUNT + 1 
IF (COUNT. EQ.l) THEN 

START=START-18 

STOP=STOP-18 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
GO TO 255 


ENDIF 

ELSE IF (RIBTYP (I) .EQ. 2) THEN 
COUNT =0 

275 START - START+1 

STOP=STOP+l 


GEN26250 

GEN26260 

GEN26270 

GEN26280 

GEN26290 

GEN26300 

GEN26310 

GEN26320 

GEN26330 

GEN26340 

GEN26350 

GEN26360 

GEN26370 

GEN26380 

GEN26390 

GEN26400 

GEN26410 

GEN26420 

GEN26430 

GEN26440 

GEN26450 

GEN26460 

GEN26470 

GEN26480 

GEN26490 

GEN26500 

GEN26510 

GEN26520 

GEN26530 

GEN26540 

GEN2 6550 

GEN26560 

GEN26570 

GEN26580 

GEN26590 

GEN26600 

GEN26610 

GEN26620 

GEN26630 

GEN26640 

GEN26650 

GEN26660 

GEN26670 

GEN26680 

GEN26690 

GEN26700 

GEN26710 

GEN26720 

GEN26730 

GEN26740 

GEN26750 

GEN26760 

GEN26770 

GEN26780 

GEN26790 

GEN26800 

GEN26810 

GEN26820 

GEN26830 

GEN26840 

GEN26850 

GEN26860 

GEN26870 

GEN26880 
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280 


LINE-LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

START-START+2 

STOP-STOP+2 

LINE-LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 


START=START-4 

STOP=STOP+29 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
DO 280 J-l, 5 


START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
CONTINUE 


START=START+2 9 

STOP=STOP-4 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12, 250 ) LINE, COLOR, SOLID, START, STOP 

START=START+2 

STOP=STOP+2 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 


START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 


COUNT-COUNT+1 
IF (COUNT. EQ.l) THEN 


START=START-2 0 

STOP=STOP-20 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
GO TO 275 


END IF 
END IF 

IF (RIBTYP (I) .EQ.l) THEN 

IF (CNLTYP (I) .EQ.l) THEN 

IF ( I . EQ . NUMBER) GO TO 285 


GEN26890 

GEN26900 

GEN26910 

GEN26920 

GEN26930 

GEN26940 

GEN26950 

GEN26960 

GEN26970 

GEN26980 

GEN26990 

GEN27000 

GEN27010 

GEN27020 

GEN27030 

GEN27040 

GEN27050 

GEN27060 

GEN27070 

GEN27080 

GEN27090 

GEN27100 

GEN27110 

GEN27120 

GEN27130 

GEN27140 

GEN27150 

GEN27160 

GEN27170 

GEN27180 

GEN27190 

GEN27200 

GEN27210 

GEN27220 

GEN27230 

GEN27240 

GEN27250 

GEN27260 

GEN27270 

GEN27280 

GEN27290 

GEN27300 

GEN27310 

GEN27320 

GEN27330 

GEN27340 

GEN27350 

GEN27360 

GEN27370 

GEN27380 

GEN27390 

GEN27400 

GEN27410 

GEN27420 

GEN27430 

GEN27440 

GEN27450 

GEN27460 

GEN27470 

GEN27480 

GEN27490 

GEN27500 

GEN27510 

GEN27520 
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START=START+12 

STOP=STOP+12 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

ELSE IF(CNLTYP(I) .EQ.2) THEN 

START-START+2 

STOP-STOP+2 

LINE=*LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

START=START+6 

STOP=STOP+6 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
IF (I .EQ. NUMBER) GO TO 285 

START=START+12 

STOP=STOP+12 

LINE=LINE+1 

END^ ITE (12 ' 250) LINE ' C0L °R, SOLID, START, STOP 


ELSE IF(RIBTYP(I) .EQ.2) THEN 


IF (I . EQ . NUMBER) GO TO 285 
START=START+12 
STOP=STOP+12 
LINE=*LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 


END IF 

285 CONTINUE 


NLRC=LINE 

WRITE (NO, *) 'NUMBER OF LINES IN RC SEGMENTS 


C 

C 

C 

C 

C 


' , NLRC 


I BEGIN LINE GENERATION OF THE EXHAUST PORT 

LINETP=LINE 
IF (IEPQUE.EQ.l) THEN 

DO 330 JJ=1, IEND 

LNT=LINE 

START=TEMP+1 

STOP=TEMP+2 

LINE=LINE+1 

WRITE ( 12 , 25 °) LINE, COLOR, SOLID, START, STOP 


DO 290 J=l, 22 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 


GEN27530 

GEN27540 

GEN27550 

GEN2 7560 

GEN27570 

GEN27580 

GEN27590 

GEN27600 

GEN27610 

GEN27620 

GEN27630 

GEN27640 

GEN27650 

GEN27 660 

GEN27670 

GEN27680 

GEN27690 

GEN27700 

GEN27710 

GEN27720 

GEN27730 

GEN27740 

GEN27750 

GEN27760 

GEN27770 

GEN27780 

GEN27790 

GEN27800 

GEN27810 

GEN27820 

GEN27830 

GEN27840 

GEN27850 

GEN27860 

GEN27870 

GEN27880 

GEN27890 

GEN27900 

GEN27910 

GEN27920 

GEN27930 

GEN27940 

GEN27950 

GEN27960 

GEN27970 

GEN27980 

GEN27990 

GEN28000 

GEN28010 

GEN28020 

GEN28030 

GEN28040 

GEN28050 

GEN28060 

GEN28070 

GEN28080 

GEN28090 

GEN28100 

GEN28110 

GEN28120 

GEN28130 

GEN28140 

GEN28150 

GEN28160 


r 
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290 


295 


300 
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IF( (J.EQ.10) .OR. (J.EQ.22) ) THEN 

START=STOP 

STOP=STOP-ll 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, 

S TART= S TART- 1 

STOP=STOP+11 

ENDIF 

CONTINUE 

START=TEMP+1 

STOP=TEMP+14 

LINE=LINE+1 

WRITE (12, 250) LINE , COLOR, SOLID , START , STOP 
ICK1=1 

DO 295 J=1 , 10- 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 


CONTINUE 


IF ( (JJ.EQ. 3) .OR. (JJ.EQ. 4) ) GO TO 310 

START=TEMP+15 

STOP=TEMP+25 

LINE=LINE+1 

WRITE (12, 250 ) LINE, COLOR, SOLID, START, STOP 

DO 300 J=l, 8 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE ( 12 , 250 ) LINE, COLOR, SOLID, START, STOP 


IF (J.EQ.4) START=START+1 


CONTINUE 


S TART=TEMP + 13 

STOP=TEMP+34 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

START=TEMP+25 

STOP=TEMP+26 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
DO 305 J-1,7 


START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 


GEN28170 
GEN28180 
GEN28190 
GEN28200 
GEN28210 
STOPGEN28220 
GEN28230 
GEN28240 
GEN28250 
GEN28260 
GEN28270 
GEN28280 
GEN28290 
GEN28300 
GEN28310 
GEN28320 
GEN28330 
GEN28340 
GEN28350 
GEN28360 
GEN28370 
GEN28380 
GEN28390 
GEN28400 
GEN28410 
GEN28420 
GEN28430 
GEN28440 
GEN28450 
GEN28460 
GEN28470 
GEN28480 
GEN28490 
GEN28500 
GEN28510 
GEN28520 
GEN28530 
GEN28540 
GEN28550 
GEN28560 
GEN28570 
GEN28580 
GEN28590 
GEN28600 
GEN28610 
GEN28620 
GEN28630 
GEN28640 
GEN28650 
GEN28660 
GEN28670 
GEN28680 
GEN28690 
GEN28700 
GEN28710 
GEN28720 
GEN28730 
GEN28740 
GEN28750 
GEN28760 
GEN28770 


TP it vr, THF.N 


GEN28780 

GEN28790 

n ft A A 
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305 

310 


315 


320 

325 


330 


START=START+1 

STOP=STOP+l 

ENDIF 


CONTINUE 

IF(JJ.EQ.IEND) GO TO 325 

START=TEMP+1 
STOP=TEMP+l+NPTEP ( JJ) 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

DO 315 J= 1 , 2 3 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
CONTINUE 

IF ( ( JJ . EQ . 2) .OR. (JJ.EQ.3) .OR. (JJ.EQ.4) ) GO TO 325 

START=TEMP+25 
STOP=TEMP+25+NPTEP (JJ) 

LINE-LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

DO 320 J=l, 9 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
CONTINUE 

TEMP=TEMP+NPTEP ( JJ) 

LNB=LINE 

NLNEP ( JJ) =LNB-LNT 

CONTINUE 

DO 355 JJ=1, 2 

LNT=LINE 
START=TEMPl+35 
STOP=TEMP 1+3 6 
LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

DO 335 J=l, 11 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

IF( (J.EQ.3) .OR. (J.EQ.7)) THEN 

START=START+1 

STOP=STOP+l 


GEN28810 

GEN28820 

GEN28830 

GEN28840 

GEN28850 

GEN28860 

GEN28870 

GEN28880 

GEN28890 

GEN28900 

GEN28910 

GEN28920 

GEN28930 

GEN28940 

GEN28950 

GEN28960 

GEN28970 

GEN28980 

GEN29990 

GEN29000 

GEN29010 

GEN29020 

GEN29030 

GEN29040 

GEN29050 

GEN29060 

GEN29070 

GEN29080 

GEN29090 

GEN29100 

GEN29110 

GEN29120 

GEN29130 

GEN29140 

GEN29150 

GEN29160 

GEN29170 

GEN29180 

GEN29190 

GEN29200 

GEN29210 

GEN29220 

GEN2 9230 

GEN29240 

GEN29250 

GEN29260 

GEN29270 

GEN29280 

GEN29290 

GEN29300 

GEN29310 

GEN29320 

GEN29330 

GEN29340 

GEN29350 

GEN29360 

GEN29370 

GEN29380 

GEN29390 

GEN29400 

GEN29410 

GEN29420 

GEN29430 

GEN29440 
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335 


340 


345 


350 


355 


END IF 

CONTINUE 

START-TEMP 1+35 
STOP-TEMP 1+40 

LINE—LINE+1 ____ 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

DO 340 J=l,9 

START-START+1 

STOP-STOP+1 

LINE-LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, S 

CONTINUE 

START-TEMP 1+1 3 
STOP-TEMP 1+3 6 
LINE-LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
DO 345 J-l, 2 

START-START+1 
STOP— STOP+1 
LINE-LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, S 
CONTINUE 

START-TEMP 1+2 5 
STOP-TEMP 1+3 9 
LINE-LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

START-TEMP 1+3 4 
STOP-TEMP 1+35 
LINE-LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
’(JJ.EQ.2) GO TO 355 

START-TEMP 1+35 

STOP— TEMP1+35+NPTEP ( JJ) 

LINE-LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 


DO 350 J-l, 14 


START-START+1 

STOP-STOP+1 

LINE-LINE+1 „„„„ 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 


CONTINUE 

TEMPI -TEMP 1+NPTEP (JJ) 
LNB— LINE 

NLNEP1 ( JJ) — LNB-LNT 
4TINUE 


GEN29450 

GEN29460 

GEN29470 

GEN29480 

GEN29490 

GEN29500 

GEN29510 

GEN29520 

GEN29530 

GEN29540 

GEN29550 

GEN29560 

GEN29570 

GEN29580 

GEN29590 

GEN29600 

GEN29610 

GEN29620 

GEN29630 

GEN29640 

GEN29650 

GEN29660 

GEN29670 

GEN29680 

GEN29690 

GEN29700 

GEN29710 

GEN29720 

GEN29730 

GEN29740 

GEN29750 

GEN29760 

GEN29770 

GEN29780 

GEN29790 

GEN29800 

GEN29810 

GEN29820 

GEN29830 

GEN29840 

GEN29850 

GEN29860 

GEN29870 

GEN29880 

GEN29890 

GEN29900 

GEN29910 

GEN29920 

GEN29930 

GEN29940 

GEN29950 

GEN29960 

GEN29970 

GEN29980 

GEN29990 

GEN30000 

GEN30010 

GEN30020 

GEN30030 

GEN30040 

GEN30050 

GEN30060 

GEN30070 

GEN30080 
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C 

c 

c 

c 

c 


END IF 

TEMP1*TEMP 


NLEP=LINE-NLRC 

WRITE (NO, *) 'NUMBER OF LINES IN EXHAUST PORT = ' , NLEP 




* 

★ 

★ 


BEGIN LINE GENERATION OF THE INTAKE PORT 






IF (IIPQUE.EQ.l) THEN 

DO 400 JJ“1 , IEND 

LNT=LINE 

START=TEMP+1 

STOP=TEMP+2 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
ICK-1 


DO 360 J=1 , 25 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

IF(J.EQ.IO) THEN 

START=STOP 

STOP=STOP-ll 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, 

START=START-1 

STOP=STOP+ll 

ENDIF 


IF (J.EQ.24) STOP=STOP-14 


360 CONTINUE 

START=TEMP+1 

STOP=TEMP+14 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
ICK1=1 

DO 365 J=1 , 12 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
IF (J.EQ.l) START=START-1 


365 CONTINUE 

IF( (JJ.EQ.3) .OR. (JJ.EQ.4) ) GO TO 380 


GEN30090 

GEN30100 

GEN30110 

GEN30120 

GEN30130 

GEN30140 

GEN30150 

GEN30160 

GEN30170 

GEN30180 

GEN30190 

GEN30200 

GEN30210 

GEN30220 

GEN30230 

GEN30240 

GEN30250 

GEN30260 

GEN30270 

GEN30280 

GEN30290 

GEN30300 

GEN30310 

GEN30320 

GEN30330 

GEN30340 

GEN30350 

GEN30360 

GEN30370 

GEN30380 

GEN30390 

GEN30400 

GEN30410 

GEN30420 

GEN30430 

STOPGEN30440 

GEN30450 

GEN30460 

GEN30470 

GEN30480 

GEN30490 

GEN30500 

GEN30510 

GEN30520 

GEN30530 

GEN30540 

GEN30550 

GEN30560 

GEN30570 

GEN30580 

GEN30590 

GEN30600 

GEN30610 

GEN30620 

GEN30630 

GEN30640 

GEN30650 

GEN30660 

GEN30670 

GEN30680 

GEN30690 

GEN30700 

GEN30710 

GEN30720 
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370 


375 

380 


385 


START=TEMP+15 

STOP=TEMP+27 

LINE-LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

DO 370 J-1,11 

START-START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

IF (J.EQ.5) START=START+1 
IF (J.EQ.10) START-START- 14 


CONTINUE 

START=TEMP+27 
STOP— TEMP +2 8 
LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
DO 375 J-1,9 

START-START+1 

STOP-STOP+1 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

IF (J.EQ.4) S TART= S T ART+ 1 
IF (J.EQ.4) STOP=STOP+l 


CONTINUE 

IF (JJ.EQ. IEND) GO TO 395 

START=TEMP+1 
STOP=TEMP+l+NPTIP ( JJ) 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

DO 385 J=l, 25 

START=START+1 

STOP=STOP+l 

LINE-LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
CONTINUE 

IF( (JJ.EQ. 2) .OR. (JJ.EQ. 3) .OR. (JJ.EQ. 4) ) GO TO 395 

START=TEMP+2 7 
STOP=TEMP+27+NPTIP ( JJ) 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

DO 390 J-1,11 

START-START+1 

STOP-STOP+1 

LINE-LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 


GEN30730 

GEN30740 

GEN30750 

GEN30760 

GEN30770 

GEN30780 

GEN30790 

GEN30800 

GEN30810 

GEN30820 

GEN30830 

GEN30840 

GEN30850 

GEN30860 

GEN30870 

GEN30880 

GEN30890 

GEN30900 

GEN30910 

GEN30920 

GEN30930 

GEN30940 

GEN30950 

GEN30960 

GEN30970 

GEN30980 

GEN30990 

GEN31000 

GEN31010 

GEN31020 

GEN31030 

GEN31040 

GEN31050 

GEN31060 

GEN31070 

GEN31080 

GEN31090 

GEN31100 

GEN31110 

GEN31120 

GEN31130 

GEN31140 

GEN31150 

GEN31160 

GEN31170 

GEN31180 

GEN31190 

GEN31200 

GEN31210 

GEN31220 

GEN31230 

GEN31240 

GEN31250 

GEN31260 

GEN31270 

GEN31280 

GEN31290 

GEN31300 

GEN31310 

GEN31320 

GEN31330 

GEN31340 

GEN31350 

GEN31360 
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390 


CONTINUE 


395 


TEMP-TEMP+NPTIP ( JJ) 

IF (JJ.EQ.5) TEMP2=TEMP-NPTIP (JJ) 


lnb-line 

NLNIP (JJ)-LNB-LNT 


IF (JJ.EQ.l) 
IF (JJ.EQ.l) 
IF (JJ.EQ.l) 
IF (JJ.EQ.l) 
IF (JJ.EQ.4) 
IF (JJ.EQ.4) 
IF (JJ.EQ.4) 
IF (JJ.EQ.4) 


I2PT21=TEMP+21 

I2PT41=TEMP+41 

l2PT46=TEMP+46 

I2PT51=TEMP+51 

I5PT21=TEMP+21 

I5PT41=TEMP+41 

I5PT46=TEMP+46 

I5PT51*TEMP+51 


400 


CONTINUE 


DO 430 JJ=1,2 


LNT=LINE 

START=TEMPl+39 

STOP=TEMP1+40 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, 


SOLID, START, STOP 


DO 405 J=1,H 


START=START+1 
STOP=STOP+l 
LINE=LINE+1 
WRITE (12, 250) 


LINE, COLOR, SOLID, START, STOP 


IF ( ( J . EQ . 3) . OR. ( J -EQ . 7) ) THEN 

START=START+ 1 
STOP=STOP+l 


ENDIF 


405 


410 


CONTINUE 


START=TEMPl+39 

STOP=TEMPl+44 

LINE=LINE+1 

WRITE (12 , 250) LINE, 


COLOR, SOLID, START, STOP 


DO 410 J=l f 9 


START=START+1 
STOP=STOP+l 
LINE=LINE+1 
WRITE (12, 250) 


LINE, COLOR, SOLID, START, STOP 


CONTINUE 


S TART=TEMP 1+22 
STOP=TEMP1+40 
LINE=LINE+1 
WRITE (12, 250) 


LINE, COLOR, SOLID, 


START, STOP 


DO 415 J=l, 2 


START=START-1 


GEN31370 

GEN31380 

GEN31390 

GEN31400 

GEN31410 

GEN31420 

GEN31430 

GEN31440 

GEN31450 

GEN31460 

GEN31470 

GEN31480 

GEN31490 

GEN31500 

GEN31510 

GEN31520 

GEN31530 

GEN31540 

GEN31550 

GEN31560 

GEN31570 

GEN31580 

GEN31590 

GEN31600 

GEN31610 

GEN31620 

GEN31630 

GEN31640 

GEN31650 

GEN31660 

GEN31670 

GEN31680 

GEN31690 

GEN31700 

GEN31710 

GEN31720 

GEN31730 

GEN317 40 

GEN31750 

GEN31760 

GEN31770 

GEN31780 

GEN31790 

GEN31800 

GEN31810 

GEN31820 

GEN31830 

GEN31840 

GEN31850 

GEN31860 

GEN31870 

GEN31880 

GEN31890 

GEN31900 

GEN31910 

GEN31920 

GEN31930 

GEN31940 

GEN31950 

GEN31960 

GEN31970 

GEN31980 

GEN31990 

GEN32000 
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415 


420 

425 


430 


435 


ST0P=ST0P+1 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

CONTINUE 

START-TEMP1+32 
S TOP =TEMP 1+43 
LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

START=TEMPl+33 

STOP=TEMPl+39 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

IF (JJ.EQ.2) GO TO 425 

START=TEMPl+39 
STOP=TEMPl+39+NPTIP (JJ) 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

DO 420 J=l, 14 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12 ,250) LINE, COLOR, SOLID, START, STOP 
CONTINUE 

TEMP 1=TEMP1+NP TIP (JJ) 

LNB=LINE 

NLNIP1 ( JJ) =LNB-LNT 
CONTINUE 

DO 460 JJ=5, IEND 

LNT=LINE 
START=TEMP2+3 9 
STOP=TEMP2+40 
LINE=LINE+1 

WRITE (12, 250 ) LINE, COLOR, SOLID, START, STOP 

DO 435 J-1,11 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

IF ( (J.EQ.3) .OR. (J.EQ.7) ) THEN 

START=START+1 

STOP=STOP+l 

ENDIF 


CONTINUE 

START=TEMP2+39 

STOP=TEMP2+44 


GEN32010 
GEN32020 
GEN32030 
GEN32040 
GEN32050 
GEN32060 
GEN32070 
GEN32080 
GEN32090 
GEN32100 
GEN32110 
GEN32120 
GEN32130 
GEN32140 
GEN32150 
GEN32160 
GEN32170 
GEN32180 
GEN32190 
GEN32200 
GEN32210 
GEN32220 
GEN32230 
GEN32240 
GEN32250 
GEN32260 
GEN32270 
GEN32280 
GEN32290 
GEN32300 
GEN32310 
GEN32320 
GEN32330 
GEN32340 
GEN32350 
GEN32360 
GEN32370 
GEN32380 
GEN32390 
GEN32400 
GEN32410 
GEN32420 
GEN32430 
GEN32440 
GEN32450 
GEN32460 
GEN32470 
GEN32480 
GEN32490 
GEN32500 
GEN32510 
GEN32520 
GEN32530 
GEN32540 
GEN32550 
GEN32560 
GEN32570 
GEN32580 
GEN32590 
GEN32600 
GEN32610 
GEN32 620 
GEN32630 
GEN32640 
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440 


445 


450 

455 

460 


LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

DO 440 J=1 , 9 

START-START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

CONTINUE 

START=TEMP2+22 

STOP-TEMP2+40 

LINE=LINE+1 

WRITE (12,250) LINE , COLOR, SOLID, START, STOP 

DO 445 J-1,2 

START=START- 1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
CONTINUE 

START=TEMP2+32 

STOP=TEMP2+43 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

START=TEMP2+33 

STOP=TEMP2+39 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

IF (JJ.EQ. IEND) GO TO 455 

START=TEMP2+39 
STOP=TEMP2+39+NPTIP (JJ) 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

DO 450 J=l,14 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
CONTINUE 

TEMP2=TEMP2+NPTIP (JJ) 

LNB=LINE 

NLNIP2 ( JJ) =LNB-LNT 
CONTINUE 
ENDIF 

NLIP=LINE-NLEP-NLRC+6 

WRITE (NO, *) ' NUMBER OF LINES IN INTAKE PORT - ',NLIP 

NLNTL=LINE 


GEN32650 

GEN32660 

GEN32670 

GEN32680 

GEN32690 

GEN32700 

GEN32710 

GEN32720 

GEN32730 

GEN32740 

GEN32750 

GEN32760 

GEN32770 

GEN32780 

GEN32790 

GEN32800 

GEN32810 

GEN32820 

GEN32830 

GEN32840 

GEN32850 

GEN32860 

GEN32870 

GEN32880 

GEN32890 

GEN32900 

GEN32910 

GEN32920 

GEN32930 

GEN32940 

GEN32950 

GEN32960 

GEN32970 

GEN32980 

GEN32990 

GEN33000 

GEN33010 

GEN33020 

GEN33030 

GEN33040 

GEN33050 

GEN33060 

GEN33070 

GEN33080 

GEN33090 

GEN33100 

GEN33110 

GEN33120 

GEN33130 

GEN33140 

GEN33150 

GEN33160 

GEN33170 

GEN33180 

GEN33190 

GEN33200 

GEN33210 

GEN33220 

GEN33230 

GEN33240 

GEN33250 

GEN33260 

GEN33270 

GEN33280 
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C 

C 

c 

c 

c 


465 


470 


* 
★ 
★ 
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*******************************................ 

BEGIN LINE GENERATION OF THE SPARK PLUG 










DO 490 JJJ-1, isp 

DO 485 JJ-1, I END 

LNT=LINE 

START=NPTTL+1 

STOP=NPTTL+2 

LINE-LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
DO 465 J=l, 34 


START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

IF (J.EQ.6) STOP=STOP-8 

IF (J.EQ.7) START=START-1 
IF (J.EQ.7) STOP=STOP+7 

IF (J.EQ.15) STOP=STOP-8 

IF (J.EQ.16) STOP=STOP+8 

IF (J.EQ.23) STOP=STOP-8 

IF (J.EQ.24) STOP=STOP+l 

IF (J.EQ.27) STOP=STOP+l 

IF (J.EQ.29) STOP=STOP-8 

IF (J.EQ.30) START=START-5 
IF (J.EQ.30) STOP=STOP+7 

IF (J.EQ.32) START=START+1 
IF (J.EQ.32) STOP=STOP+l 

CONTINUE 

START=NPTTL+1 

STOP=NPTTL+10 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
DO 470 J-1,14 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
IF (J.EQ.6) START=START+1 

CONTINUE 


GEN33290 

GEN33300 

GEN33310 

GEN33320 

GEN33330 

GEN33340 

GEN33350 

GEN33360 

GEN33370 

GEN33380 

GEN33390 

GEN33400 

GEN33410 

GEN33420 

GEN33430 

GEN33440 

GEN33450 

GEN33460 

GEN33470 

GEN33480 

GEN33490 

GEN33500 

GEN33510 

GEN33520 

GEN33530 

GEN33540 

GEN33550 

GEN33560 

GEN33570 

GEN33580 

GEN33590 

GEN33600 

GEN33610 

GEN33620 

GEN33630 

GEN33640 

GEN33650 

GEN33660 

GEN33670 

GEN33680 

GEN33690 

GEN33700 

GEN33710 

GEN33720 

GEN33730 

GEN33740 

GEN33750 

GEN33760 

GEN33770 

GEN33780 

GEN33790 

GEN33800 

GEN33810 

GEN33820 

GEN33830 

GEN33840 

GEN33850 

GEN33860 

GEN33870 

GEN33880 

GEN338 90 

GEN33900 

GEN33910 

GEN33920 


f 
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IF (JJ.EQ.IEND) GO TO 480 

START-NPTTL+1 
STOP-NPTTL+l+NPTSP ( JJ) 

LINE-LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 

DO 475 J-1,29 

START=START+1 

STOP=STOP+l 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 

475 CONTINUE 

480 • NPTTL=NPTTL+NPTSP (JJ) 

LNB-LINE 

NLNSP (JJ)-LNB-LNT 
485 CONTINUE 

490 CONTINUE 

NLSP=LINE— NLRC-NLEP-NLIP+6 

WRITE (NO,*) 'NUMBER OF LINES IN SPARK PLUG(jS) = ',NLSP 

IF (IIPQUE.EQ. 1) THEN 

START=I2PT2 1 

ST0P=I2PT41 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
ISTCN1=LINE 

START=I2PT41 
ST0P=I2PT4 6 
LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID , START, STOP 
ISTCN2=LINE 

START=I2PT46 

ST0P=I2PT51 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
ISTCN3=LINE 

START=I2PT51 

STOP=I5PT51 

LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
ISTCN4=LINE 

START=I5PT51 
ST0P=I5PT4 6 
LINE=LINE+1 

WRITE (12,250) LINE, COLOR, SOLID, START, STOP 
ISTCN5=LINE 

START=I5PT46 

STOP=I5PT41 

LINE=LINE+1 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP 
ISTCN6=LINE 


GEN33930 

GEN33940 

GEN33950 

GEN33960 

GEN33970 

GEN33980 

GEN33990 

GEN34000 

GEN34010 

GEN34020 

GEN34030 

GEN34040 

GEN34050 

GEN34060 

GEN34070 

GEN34080 

GEN34090 

GEN34100 

GEN34110 

GEN34120 

GEN34130 

GEN34140 

GEN34150 

GEN34160 

GEN34170 ‘ 

GEN34180 

GEN34190 

GEN34200 

GEN34210 

GEN34220 

GEN34230 

GEN34240 

GEN34250 

GEN34260 

GEN34270 

GEN34280 

GEN34290 

GEN34300 

GEN34310 

GEN34320 

GEN34330 

GEN34340 

GEN34350 

GEN34360 

GEN34370 

GEN34380 

GEN34390 

GEN34400 

GEN34410 

GEN34420 

GEN34430 

GEN34440 

GEN34450 

GEN34460 

GEN34470 

GEN34480 

GEN34490 

GEN34500 

GEN34510 

GEN34520 

GEN34530 

GEN34540 

GEN34550 

GEN34560 
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C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


ENDIF 


GEN34570 

START=I5PT41 GEN34580 

STOP=I5PT21 GEN34590 

LINE=LINE+1 GEN34600 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOP GEN34610 

ISTCN7=LINE GEN34620 

GEN3463.0 

START=I5PT21 GEN34640 

ST0P=I2PT21 GEN34650 

LINE=LINE+1 GEN34660 

WRITE (12, 250) LINE, COLOR, SOLID, START, STOPGEN34670 
ISTCN8=LINE GEN34680 

GEN34690 
GEN34700 
GEN34710 

WRITE (NO,*) ' TOTAL NUMBER OF LINES - ' , LINE GEN34720 

WRITE (NO,*) ' ' GEN34730 

WRITE (NO,*) ' ' GEN34740 

GEN34750 

WRITE (NO, *) 'LINE LABELS OF RC SEGMENTS ARE 1 TO' , NLRC GEN34760 

WRITE (NO, *) 'LINE LABELS OF EXHST PORT ARE ' , NLRC+1, ' TO' , NLEP+NLRC GEN34770 

WRITE (NO, *)' LINE LABELS OF INTKE PORT ARE' , NLRC+NLEP+1 , ' TO' , NLIP+ GEN34780 

#NLRC+NLEP GEN34790 

WRITE (NO, *) 'LINE LABELS OF SPRK PLUG ARE' ,NLRC+NLEP+NLIP+1, 'TO' , GEN34800 

GEN34810 
GEN34820 
GEN34830 
GEN34840 
GEN34850 
GEN34860 
GEN34870 
GEN34880 
GEN34890 
GEN34900 
GEN34910 
GEN34920 
GEN34930 
GEN34940 
GEN34950 
GEN34960 
GEN34970 
GEN34980 
GEN34990 
GEN35000 
GEN35010 
GEN35020 
GEN35030 
GEN35040 
GEN35050 
GEN35060 
GEN35070 
GEN35080 
GEN350 90 
GEN35100 
GEN35110 
GEN35120 
GEN35130 
GEN35140 
GEN35150 
GEN35160 
GEN35170 
GEN35180 
GEN35190 
GEN35200 


#NLSP+NLRC+NLEP+NLIP 
WRITE (NO,*) ' ' 

WRITE (NO, *) ' ' 

WRITE (12, 245) 

WRITE (12, 245) 

********************** ************ *************************** 
* * 

* END GENERATION OF THE LINES IN UNIVERSAL FORMAT * 

* * 
************************************************************* 


************************************************************* 
* * 

* BEGIN SPLINE GENERATION OF THE INNER AND OUTER SHELLS, * 

* RIBS, AND STIFFENED CHANNELS IN UNIVERSAL FORMAT * 

* (NOTE THAT THERE ARE NO SPLINES IN ANY OF THE PORTS) * 

* * 
************************************************************* 


WRITE ( 12 , 495) 

495 FORMAT (4X, ' 28' ) 

SPLINE=1 

NUMB=4 

PTl=LASTPT-34 

PT2=1 

PT3=6 

PT4=11 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
520 FORMAT (5110) 

WRITE (12,525) PT1, PT2, PT3, PT4 
525 FORMAT (4110) 

DO 560 1=1, NUMBER 

IF (RIBTYP (I) .EQ. 1) THEN 

DO 530 J=l, 4 
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530 


535 


540 


PT1-PT1+1 

IF ( (RIBTYP ( I— 1 ) . EQ . 2 ) .AND. (J.EQ.3) ) PT1=PT1+1 
PT2-PT2+1 
PT3-PT3+1 
PT4-PT4+1 
SPLINE-SPLINE+1 

WRITE (12,520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1, PT2, PT3, PT4 

CONTINUE 

PT1-PT1+2 6 

IF (RIBTYP (1-1) .EQ.2) PT1-PT1+3 
PT2-PT2+26 
PT3-PT3+26 
PT4=PT4+2 6 
SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1, PT2, PT3, PT4 

DO 535 J-l, 4 

PT1=PT1+1 

IF ( (RIBTYP ( I— 1) .EQ.2) .AND. (J.EQ.3) ) PT1=PT1+1 
PT2=PT2+1 
PT3=PT3+1 


ELSE 


ENDIF 


GEN35210 

GEN35220 

GEN35230 

GEN35240 

GEN35250 

GEN35260 

GEN35270 

GEN35280 

GEN35290 

GEN35300 

GEN35310 

GEN35320 

GEN35330 

GEN35340 

GEN35350 

GEN35360 

GEN35370 

GEN35380 

GEN35390 

GEN35400 

GEN35410 

GEN35420 

GEN35430 

GEN35440 

GEN35450 

GEN35460 

GEN35470 


PT4=PT4+1 

GEN35480 

SPLINE=SPLINE+1 

GEN354 90 

WRITE (12,520) SPLINE, SDC, COLOR, SOLID, NUMB 

GEN35500 

WRITE (12, 525) PT1, PT2, PT3, PT4 

GEN35510 

GEN35520 

CONTINUE 

GEN35530 

GEN35540 

. EQ . 1 ) THEN 

GEN35550 

GEN35560 

PT1-11 

GEN35570 

GEN35580 

GEN35590 

GEN35600 

PT1=PT1+11 

GEN35610 

(CNLTYP(I-l) .EQ.2) PTl=PTl+8 

GEN35620 

GEN35630 

F 

GEN35640 

GEN35650 

PT2=PT2-1 9 

GEN35660 

PT3-PT3-19 

GEN35670 

PT4=PT4-1 9 

GEN35680 

SPLINE=SPLINE+1 

GEN35690 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 

GEN35700 

WRITE (12, 525) PT1,PT2,PT3,PT4 

GEN35710 

GEN35720 

DO 540 J-l, 4 

GEN35730 

GEN35740 

PT1=PT1+1 

GEN35750 

PT2-PT2+1 

GEN35760 

PT3=PT3+1 

GEN35770 

PT4-PT4+1 

GEN35780 

SPLINE=SPLINE+1 

GEN35790 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 

GEN35800 

WRITE (12, 525) PT1,PT2,PT3,PT4 

GEN35810 

GEN35820 

CONTINUE 

GEN35830 

GEN35840 


r 
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545 


547 


PT1-PT1+26 

PT2-PT2+26 

PT3-PT3+26 

PT4-PT4+26 


SPLINE-SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, 
WRITE (12, 525) PT1, PT2, PT3, PT4 


NUMB 


DO 545 j-l,4 


PT1=PT1+1 

PT2=PT2+1 

PT3-PT3+1 

PT4=PT4+1 


SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1,PT2,PT3,PT4 


CONTINUE 


ELSE IF (RIBTYP ( I) . EQ . 2 ) THEN 


DO 547 J=l, 2 

PT1=PT1+1 

PT2=PT2+1 

PT3=PT3+1 

PT4=PT4+1 


SPLINE=SPLINE+1 

(12 ' 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1,PT2,PT3,PT4 


CONTINUE 


PTl=PTl+2 

IF (RIBTYP ( I— 1 ) .EQ. 1) PT1=PT1-1 
PT2=PT2+1 
PT3=PT3+1 
PT4=PT4+2 


SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1, PT2, PT3, PT4 


PT1=PT1+1 

PT2=PT2+1 

PT3=PT3+1 

PT4=PT4+1 


SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, 
WRITE (12, 525) PT1, PT2, PT3, PT4 


SOLID, NUMB 


PTl=PTl+2 9 

IF (RIBTYP ( I— 1 ) . EQ . 1) PTl=PTl-3 
PT2=PT2+30 
PT3=PT3+30 
PT4=PT4+29 


SPLINE=SPLINE+1 

WRITE (12,520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12,525) PT1, PT2, PT3, PT4 


DO 549 J=1 , 2 

PT1=PT1+1 

PT2=PT2+1 

PT3=PT3+1 

PT4=PT4+1 


GEN35850 

GEN35860 

GEN35870 

GEN35880 

GEN35890 

GEN35900 

GEN35910 

GEN35920 

GEN35930 

GEN35940 

GEN35950 

GEN35960 

GEN35970 

GEN35980 

GEN35990 

GEN36000 

GEN36010 

GEN36020 

GEN36030 

GEN36040 

GEN36050 

GEN36060 

GEN36070 

GEN36080 

GEN36090 

GEN36100 

GEN36110 

GEN36120 

GEN36130 

GEN36140 

GEN36150 

GEN36160 

GEN36170 

GEN36180 

GEN36190 

GEN36200 

GEN36210 

GEN36220 

GEN36230 

GEN36240 

GEN36250 

GEN36260 

GEN3 62 70 

GEN36280 

GEN36290 

GEN36300 

GEN36310 

GEN36320 

GEN36330 

GEN36340 

GEN36350 

GEN36360 

GEN36370 

GEN36380 

GEN36390 

GEN36400 

GEN36410 

GEN36420 

GEN36430 

GEN36440 

GEN36450 

GEN36460 

GEN36470 

GEN36480 


f 
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549 


550 


555 


SPLINE=SPLINE+1 

WRITE (12,520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1,PT2,PT3,PT4 

CONTINUE 

PT1-PT1+2 

IF (RIBTYP (1-1) .EQ. 1) PT1-PT1-1 
PT2=PT2+1 
PT3-PT3+1 
PT4=PT4+2 
SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1, PT2,PT3,PT4 

PT1=PT1+1 

PT2=PT2+1 

PT3-PT3+1 

PT4-PT4+1 

SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1,PT2,PT3,PT4 

PT1=PT1+11 

IF (CNLTYP ( I— 1 ) .EQ.2) PTl=PTl+8 
PT2=PT2-22 
PT3=PT3-21 
PT4=PT4-21 
SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12,525) PT1,PT2,PT3,PT4 

DO 550 J=l, 5 

PT1=PT1+1 

PT2=PT2+1 

PT3=PT3+1 

PT4=PT4+1 

SPLINE=SPLINE+1 

WRITE (12,520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1,PT2,PT3,PT4 

CONTINUE 

PTl=PTl+29 
PT2=PT2+29 
PT3=PT3+2 9 
PT4=PT4+2 9 
SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1, PT2,PT3,PT4 

DO 555 J=l, 5 

PT1=PT1+1 

PT2=PT2+1 

PT3=PT3+1 

PT4=PT4+1 

SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1, PT2 , PT3, PT4 

CONTINUE 


GEN36490 

GEN36500 

GEN36510 

GEN36520 

GEN36530 

GEN36540 

GEN36550 

GEN36560 

GEN36570 

GEN36580 

GEN36590 

GEN36600 

GEN36610 

GEN36620 

GEN36630 

GEN36640 

GEN36650 

GEN36660 

GEN36670 

GEN36680 

GEN36690 

GEN36700 

GEN36710 

GEN36720 

GEN36730 

GEN367 40 

GEN36750 

GEN36760 

GEN36770 

GEN36780 

GEN36790 

GEN36800 

GEN36810 

GEN36820 

GEN36830 

GEN36840 

GEN36850 

GEN36860 

GEN36870 

GEN36880 

GEN36890 

GEN36900 

GEN36910 

GEN36920 

GEN36930 

GEN36940 

GEN36950 

GEN36960 

GEN36970 

GEN36980 

GEN36990 

GEN37000 

GEN37010 

GEN37020 

GEN37030 

GEN37040 

GEN37050 

GEN37060 

GEN37070 

GEN37080 

GEN37090 

GEN37100 

GEN37110 

GEN37120 
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END IF 




IF (RIBTYP (I) .EQ. 1) THEN 

IF (CNLTYP (I) . EQ . 2 ) THEN 

PT1-PT1+16 

PT2-PT2+13 

PT3=PT3+10 

PT4=PT4+7 

SPLINE=SPLINE+1 

WRITE (12,520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1,PT2,PT3,PT4 

PT1=PT1+1 

PT2=PT2+1 

PT3=PT3+1 

PT4=PT4+1 

SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1, PT2, PT3, PT4 

IF ( I. EQ. NUMBER) GO TO 560 

PTl=PTl-36 

PT2-PT2+5 

PT3=PT3+8 

PT4-PT4+11 

SPLINE=SPLINE+1 

WRITE (12,520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1,PT2,PT3,PT4 

ELSE IF (CNLTYP (I) .EQ. 1) THEN 

IF ( I. EQ. NUMBER) GO TO 560 

PT1=PT1-19 

PT2=PT2+11 

PT3=PT3+11 

PT4=PT4+11 

SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1,PT2,PT3, PT4 

ENDIF 

ELSE IF (RIBTYP (I) .EQ. 2) THEN 

IF (I .EQ. NUMBER) GO TO 560 

PT1-PT1-21 

PT2-PT2+13 

PT3=PT3+12 

PT4=PT4+11 

SPLINE=SPLINE+1 

WRITE (12, 520) SPLINE, SDC, COLOR, SOLID, NUMB 
WRITE (12, 525) PT1,PT2,PT3,PT4 


ENDIF 


- - 560 CONTINUE 

NLNTL=NLNTL+SPLINE 


GEN37130 

GEN37140 

GEN37150 

GEN37160 

GEN37170 

GEN37180 

GEN37190 

GEN37200 

GEN37210 

GEN37220 

GEN37230 

GEN37240 

GEN37250 

GEN37260 

GEN37270 

GEN37280 

GEN37290 

GEN37300 

GEN37310 

GEN37320 

GEN37330 

GEN37340 

GEN37350 

GEN37360 

GEN37370- 

GEN37380 

GEN37390 

GEN37400 

GEN37410 

GEN37420 

GEN37430 

GEN37440 

GEN37450 

GEN37460 

GEN37470 

GEN37480 

GEN37490 

GEN37500 

GEN37510 

GEN37520 

GEN37530 

GEN37540 

GEN37550 

GEN37560 

GEN37570 

GEN37580 

GEN37590 

GEN37600 

GEN37610 

GEN37620 

GEN37630 

GEN37640 

GEN37650 

GEN37660 

GEN37670 

GEN37680 

GEN37690 

GEN37700 

GEN37710 

GEN37720 

GEN37730 

GEN377 40 

GEN37750 

GEN377 60 


r 
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WRITE (NO, *) 'NO. IN RC SEGMENT & TOTAL NUMBER OF SPLINES = ' , SPLINEGEN37770 


WRITE (NO,*) ' 
WRITE (NO,*) ' 


WRITE (12, 245) 


C 

C 

c 

c 

c 


GEN37780 
GEN37790 
GEN37800 
GEN37810 
GEN37820 
GEN37830 
GEN37840 
GEN37850 
GEN37860 
GEN37870 
GEN37880 

WRITE (NO, 565) GEN37 8 90 

565 FORMAT (' 0 THE POINTS, LINES AND SPLINES HAVE BEEN GENERATED.') GEN37900 
WRITE (NO, 566) 

566 FORMAT (' 0 THE PROGRAM CAN BE EXITED AT THIS POINT TO VERIFY') GEN37920 

nmT 1 ! T A ^ 


************************************************************* 

* 

* END GENERATION OF THE SPLINES IN UNIVERSAL FORMAT * 

* 

************************************************************* 


WRITE (NO, 567) 

567 FORMAT (' 0 ',' THAT THE INTENDED GEOMETRY IS CREATED.') 
WRITE (NO, 570) 

570 FORMAT (' 0 ',' ENTER A ...') 

WRITE (NO, 575) 

575 FORMAT (' O', ' 1 TO CONTINUE 

WRITE (NO, 580) 

580 FORMAT (' O', ' 2 TO STOP 

READ (5,*) ICONTI 

IF (STATUS. NE.0) WRITE (8,*) ICONTI 
WRITE (NO, * ) ICONTI 
WRITE (20,*) ICONTI 

IF (ICONTI .EQ. 2) THEN 


MODEL GENERATION OR 
MODEL GENERATION.') 


) 


PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 


THE UNIVERSAL HAS BEEN CREATED.' 

BEFORE THE UNIVERSAL FILE CAN BE READ, ' 
THE USER MUST ENTER THE SDRC SOFTWARE.' 


GEN37930 
GEN37940 
GEN37950 
GEN37960 
GEN37970 
GEN37980 
GEN37990 
GEN38000 
GEN38010 
GEN38020 
GEN38030 
GEN38040 
GEN38050 
GEN38060 
GEN38070 
GEN38080 
GEN38090 
GEN38100 
GEN38110 
GEN38120 
GEN38130 
GEN38140 
GEN38150 
GEN3 8160 
GEN38170 
GEN38180 
GEN38190 
GEN38200 
GEN38210 
GEN38220 


NOTE THAT A FILE CALLED "MODEL DATA" CAN NOT' 

EXIST ON YOUR DISK. IF IT DOES, AN ERROR WILL' 

RESULT WHEN YOU ENTER THE SDRC SOFTWARE. TO' 

CORRECT THE ERROR, CHANGE THE NAME OF THE' 

"MODEL DATA" FILE THAT EXISTS ON YOUR DISK.' 

(BEFORE YOU ENTER THE SDRC SOFTWARE)' 

, GEN38230 

AFTER ENTERING THE SDRC SOFTWARE IN THE PROGRAM MODE,' GEN38240 
RESPOND "R" (FOR RUN) TO THE FIRST QUESTION,' 

RESPOND "GO" TO THE SECOND QUESTION AND' 

IN RESPONSE TO THE THIRD QUESTION,' 

ENTER THE TERMINAL TYPE THAT YOU ARE USING.' 


CALL GO (ICONTI) 


STOP 
END IF 


WRITE (12, 245) 


C 

C 

C 

C 


************************************************************* 

* 

* BEGIN GENERATION OF THE EDGES IN UNIVERSAL FORMAT * 

* 


GEN38250 

GEN38260 

GEN38270 

GEN38280 

GEN38290 

GEN38300 

GEN38310 

GEN38320 

GEN38330 

GEN38340 

GEN38350 

GEN38360 

GEN38370 

GEN38380 

GEN38390 

GEN38400 
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WRITE (12, 585) 

585 FORMAT (4X, '29') 

SPENTC=3 

LNENTC=1 

NUMB=1 

ISPENL=1 

ILNENL-1 

EDGE=1 

DO 625 III-l, NUMBER 
DO 610 11=1,2 

IF ( (RIBTYP (III) -EQ.2) .AND . (II.EQ.2) ) THEN 
NMSPS=12 

ELSE 

NMSPS=10 


endif 


DO 600 1=1, NMSPS 


590 

595 


WRITE (12,590) EDGE , COLOR, SOLID , NUMB 
FORMAT (4110) 

WRITE (12, 595) SPENTC, ISPENL 
FORMAT (6110) 


EDGE=EDGE+1 

ISPENL=ISPENL+1 

CONTINUE 

IF (RIBTYP (III) -EQ. 2) THEN 
NMLNS=14 

ELSE IF (RIBTYP (III) .EQ.l) THEN 
NMLNS=13 


ENDIF 

DO 605 1=1, NMLNS 

WRITE (12, 590) EDGE, COLOR, SOLID, NUMB 
WRITE (12, 595) LNENTC, ILNENL 

EDGE=EDGE + 1 
I LNENL= ILNENL+1 

605 CONTINUE 

610 CONTINUE 

IF(CNLTYP (III) .EQ.2) THEN 

DO 615 J-1,2 

WRITE (12, 590) EDGE, COLOR, SOLID, NUMB 
WRITE (12, 595) SPENTC, ISPENL 

edge=edge+i 


GEN38410 

GEN38420 

GEN38430 

GEN38440 

GEN38450 

GEN38460 

GEN38470 

GEN38480 

GEN38490 

GEN38500 

GEN38510 

GEN38520 

GEN38530 

GEN38540 

GEN38550 

GEN38560 

GEN38570 

GEN38580 

GEN38590 

GEN38600 

GEN38610 

GEN38620 

GEN38630 

GEN38640 

GEN38650 

GEN38660 

GEN38670 

GEN38680 

GEN38690 

GEN38700 

GEN38710 

GEN38720 

GEN38730 

GEN38740 

GEN38750 

GEN387 60 

GEN38770 

GEN38780 

GEN38790 

GEN38800 

GEN38810 

GEN38820 

GEN38830 

GEN38840 

GEN38850 

GEN38860 

GEN38870 

GEN38880 

GEN38890 

GEN38900 

GEN38910 

GEN38920 

GEN38930 

GEN38940 

GEN38950 

GEN38960 

GEN38970 

GEN38980 

GEN38990 

GEN39000 

GEN39010 

GEN39020 

GEN39030 

GEN39040 
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615 


620 


625 


630 


ISPENL=ISPENL+1 

CONTINUE 


DO 620 J-1,2 


EDGE, COLOR, SOLID, NUMB 
LNENTC, ILNENL 


WRITE (12, 590) 
WRITE (12, 595) 
EDGE-EDGE +1 
I LNENL- I LNENL+ 1 

CONTINUE 

END IF 


CONTINUE 

TEMPED=EDGE- 1 

IF (IEPQUE.EQ. 1) THEN 

DO 630 J=EDGE,LINE+SPLINE-6 

WRITE (12, 590) EDGE, COLOR, SOLID, NUMB 
WRITE (12, 595) LNENTC, ILNENL 
I LNENL= I LNENL+ 1 
EDGE-EDGE+1 


IF 


( (EDGE.EQ.LINE+SPLINE-5) .OR. (EDGE . EQ . LINE+SPLINE 7)) 


GEN39050 
GEN39060 
GEN39070 
GEN39080 
GEN39090 
GEN39100 
GEN39110 
GEN39120 
GEN39130 
GEN39140 
GEN39150 
GEN39160 
GEN39170 
GEN39180 
GEN39190 
GEN39200 
GEN39210 
GEN39220 
GEN39230 
GEN39240 
GEN39250 
GEN39260 
GEN39270 
GEN39280 
GEN39290 
GEN39300 
GEN39310 
GEN39320 
THEN GEN39330 

GEN39340 
GEN39350 

NUMB— 3 GEN39360 

WRITE (12. 590) EDGE, COLOR, SOLID, NUMB ' 

WRITE (12, 595) LNENTC, ILNENL, LNENTC, ILNENL+1, LNENTC, X L NENL+ 2 GEN3 9 37 0 

ILNENL-ILNENL+3 GEN39390 

EDGE-EDGE+1 GEN39400 

NUMB=1 GEN39410 

GEN39420 
GEN39430 
GEN39440 
GEN39450 
GEN39460 
GEN39470 
GEN39480 
GEN39490 
GEN39500 
GEN39510 
GEN39520 
GEN39530 
GEN39540 
GEN39550 
GEN39560 
GEN39570 
GEN39580 
GEN39590 
GEN39600 
GEN39610 
GEN39620 
GEN39630 
GEN39640 
GEN39650 

WRITE (NO * ) ' EDGE LABELS OF RC SEGMENTS ARE 1 TO',NERC GEN39660 

WRITE (NO *) 'EDGE LABELS OF EXHST PORT ARE ' , NERC+1 , ' TO' , NEEP+NERC GEN396 0 
WRITE (NO*, *) 'EDGE LABELS OF INTKE PORT ARE ' , NERC+NEEP+1 , ' TO' , NEIP+GEN39 680 


ENDIF 

CONTINUE 

ENDIF 

WRITE (12, 245) 

WRITE (12, 245) 

NERC=EDGE-1-NLEP-NLIP-NLSP 

NEEP-EDGE-l-SPLINE-NLRC-NLIP-NLSP 

NEIP=EDGE-1-SPLINE-NLRC-NLEP-NLSP 

NESP=EDGE-l-SPLINE-NLRC-NLEP-NLIP+6 


WRITE (NO, *) 
WRITE (NO, *) 
WRITE (NO, *) 
WRITE (NO, *) 
WRITE (NO, *) 
WRITE (NO, *) 
WRITE (NO,*) 
WRITE (NO, *) 
WRITE (NO, *) 


'NUMBER OF EDGES 
'NUMBER OF EDGES 
'NUMBER OF EDGES 
'NUMBER OF EDGES 
'TOTAL NUMBER OF 


IN RC SEGMENTS 
IN EXHAUST PORT - 
IN INTAKE PORT 
IN SPARK PLUG (S) = 
EDGES - ' , EDGE-1 


' , NERC 
' , NEEP 
' ,NEIP 
' , NESP 
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#NERC+NEEP 

WRITE (NO, * ) ' EDGE LABELS OF SPRK PLUGS ARE ' , NERC+NEEP+NEIP+1 
#NESP+NERC+NEEP+NEIP ' 

WRITE (NO, *) ' ' 

WRITE (NO,*) 9 ' 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


* 

* 

* END generation of the edges in universal format * 

^★♦a***************************************^^^^^^ 

* 

* 

* BEGIN GENERATION OF THE SURFACES OF THE INNER AND * 

* OUTER SHELLS, AND RIBS IN UNIVERSAL FORMAT * 

.t*******************************************^^^^^^* 


ISRCT-0 
WRITE ( 12 , 635) 
635 FORMAT (4X, ' 30' ) 


EDGE-TEMPED 
SURF AC- 1 
DASH=2 
NUMB- 4 
GRADE-2 


EDI— 1 

IF (RIBTYP (NUMBER) . EQ . 2 ) THEN 

EDGE-EDGE-2 

END IF 


ED2— EDGE-8 

ED3-6 

ED4-15 

WRITE (12, 640) S URF AC , COLOR , DASH, GRADE, NUMB 
640 FORMAT (5110) 

WRITE (12, 645) EDI, ED2, ED3, ED4 
645 FORMAT (4110) 

DO 690 1=1, NUMBER 

IF (RIBTYP (I) .EQ. 1) THEN 

DO 675 JJ-1,2 

DO 650 J-1,4 

ED1—ED1+1 

ED2-ED2+1 

IF (( (J.EQ. 3) .AND. (JJ.EQ.l) ) .AND. (RIBTYP (1-1) EO 2) ) 

# ED2-ED2+1 

ED3-ED3+1 

ED4-ED4+1 

SURFAC-SURFAC+1 

WRITE (12, 640) SURF AC , COLOR, DASH , GRADE , NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

650 CONTINUE 


GEN39690 
TO' , GEN39700 
GEN39710 
GEN39720 
GEN39730 
GEN39740 
GEN39750 
GEN39760 
GEN39770 
GEN39780 
GEN39790 
GEN39800 
GEN39810 
GEN39820 
GEN39830 
GEN39840 
GEN39850 
GEN39860 
GEN39870 
GEN39880 
GEN39890 
GEN39900 
GEN39910 
GEN39920 
GEN39930 
GEN39940 
GEN39950 
GEN39960 
GEN39970 
GEN39980 
GEN39990 
GEN40000 
GEN40010 
GEN40020 
GEN40030 
GEN40040 
GEN40050 
GEN40060 
GEN40070 
GEN40080 
GEN40090 
GEN40100 
GEN40110 
GEN40120 
GEN 40130 
GEN40140 
GEN40150 
GEN40160 
GEN40170 
GEN40180 
GEN40190 
GEN40200 
GEN40210 
GEN40220 
GEN40230 
GEN40240 
GEN40250 
GEN40260 
GEN40270 
GEN40280 
GEN40290 
GEN40300 
GEN40310 
GEN40320 


1 



generate . fortran 


Fri May 10 14:46:12 1991 


64 


EDl=EDl-4 

GEN40330 

ED2=ED2-8 

GEN40340 

IF ( (RIBTYP (1-1) . EQ . 2 ) .AND. (JJ.EQ.l)) ED2-ED2-1 

GEN40350 

ED3-ED3-8 

GEN40360 

ED4-ED4-8 

GEN40370 

SURFAC-SURFAC+1 

GEN40380 

WRITE (12, 640) SURF AC, COLOR, DASH, GRADE, NUMB 

GEN40390 

WRITE (12, 645) EDI, ED2 , ED3, ED 4 

GEN40400 

GEN40410 

IF (JJ.EQ.l) THEN 

GEN40420 

GEN40430 

ED1=ED1+1 

GEN40440 

ED2=ED2+1 

GEN40450 

ED3=ED3+1 

GEN40460 

ED4-ED4+1 

GEN40470 

SURFAC=SURFAC+1 

GEN40480 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN40490 

WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN40500 


GEN40510 

EDl=EDl+2 

GEN40520 

ED2=ED2+2 

GEN40530 

ED3=ED3+2 

GEN40540 

ED4=ED4+2 

GEN40550 

SURFAC=SURFAC+1 

GEN40560 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN40570 

WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN40580 

GEN40590 

EDl=EDl+2 

GEN40600 

ED2=ED2+6 

GEN40610 

IF (RIBTYP (1-1) .EQ.2) ED2=ED2+1 

GEN40620 

ED3=ED3+2 

GEN40630 

ED4=ED4+6 

GEN40640 

SURFAC=SURFAC+1 

GEN40650 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN40660 

WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN40670 

GEN40680 

ED1=ED1+1 

GEN40690 

ED2=ED2+1 

GEN40700 

ED3=ED3+1 

GEN40710 

ED4=ED4+1 

GEN40720 

SURFAC=SURFAC+1 

GEN40730 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN40740 

WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN 40750 


GEN40760 

EDl=EDl+2 

GEN40770 

ED2=ED2+2 

GEN40780 

ED3=ED3+2 

GEN407 90 

ED4=ED4+2 

GEN40800 

SURFAC=SURFAC+ 1 

GEN40810 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN40820 

WRITE(12, 645) EDI, ED2, ED3, ED4 

GEN40830 

GEN40840 

ELSE IF ( JJ . EQ . 2) THEN 

GEN40850 


GEN40860 

DO 655 JJJ=1, 3 

GEN40870 

GEN40880 

ED1=ED1+1 

GEN40890 

ED2=ED2+1 

GEN40900 

ED3=ED3+1 

GEN40910 

ED4=ED4+1 

GEN40920 

SURFAC=SURFAC+1 

GEN40930 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN40940 

WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN 40 950 
GEN40960 
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655 

CONTINUE 

GEN40970 



GEN40980 


EDl=EDl+2 

GEN40990 


ED2-ED2+6 

GEN41000 


ED3-ED3+2 

GEN41010 


ED4-ED4+6 

GEN41020 


SURFAC-SURFAC+l 

GEN 41030 


WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN410 40 


WRITE (12, 645) EDI, ED2 , ED3, ED4 

GEN 41050 



GEN 41060 


DO 660 JJJ=1, 3 

GEN41070 



GEN41080 


ED1=ED1+1 

GEN41090 


ED2=ED2+1 

GEN41100 


ED3=ED3+1 

GEN41110 


ED4=ED4+1 

GEN41120 


SURFAC=SURFAC+1 

GEN 41130 


WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN41140 


WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN41150 



GEN 41160 

660 

CONTINUE 

GEN41170 



GEN41180 


END IF 

GEN 41190 


EDl=EDl+6 

GEN41200 


IF(I.GT.l) GO TO 665 

GEN41210 



GEN41220 


IF( (I.EQ.l) .AND. (JJ.EQ.l) ) THEN 

GEN41230 


ED2=ED2+20-EDGE 

GEN41240 


ELSE IF ( JJ . EQ . 2 ) THEN 

GEN41250 


ED2=ED2+20 

GEN412 60 


END IF 

GEN41270 



GEN41280 

665 

IF ( (CNLTYP (1-1) . EQ . 2 ) .AND. (JJ.EQ.2) ) THEN 

GEN41290 


ED2=ED2+20 

GEN41300 


ELSE IF( (CNLTYP ( I— 1 ) . EQ . 2) .AND. (JJ.EQ.l) ) THEN 

GEN41310 


ED2=ED2+24 

GEN41320 


ELSE IF (CNLTYP (1-1) .EQ. 1) THEN 

GEN41330 


ED2=ED2+20 

GEN41340 


ENDIF 

GEN 41350 



GEN41360 


ED3=ED3+6 

GEN41370 


ED4=ED4-12 

GEN 41380 


SURFAC=SURFAC+1 

GEN41390 


WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN41400 


WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN41410 



GEN41420 


DO 670 J=l, 3 

GEN41430 



GEN41440 


ED1-ED1+1 

GEN41450 


ED2=ED2+1 

GEN414 60 


ED3=ED3+1 

GEN41470 


ED4=ED4+1 

GEN 414 80 


SURFAC=SURFAC+1 

GEN41490 


WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN41500 


WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN41510 



GEN41520 

670 

CONTINUE 

GEN41530 



GEN41540 


IF (JJ.EQ.l) THEN 

GEN41550 


EDl=EDl+6 

GEN415 60 


ED2=ED2-8 

GEN41570 


ED3=ED3+10 

GEN41580 


ED4=ED4+24 

GEN41590 


SURFAC=SURFAC+1 

GEN41600 
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WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2, ED3, ED4 


END IF 


675 CONTINUE 

ELSE IF(RIBTYP (I) .EQ.2) THEN 

DO 680 J=l, 2 

ED1=ED1+1 
ED2=ED2+1 
ED3=ED3+1 
ED4=ED4+1 
SURF AC=SURFAC+ 1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

680 CONTINUE 

ED1=ED1+1 

ED2=ED2+2 

IF (RIBTYP (1-1) .EQ. 1) ED2=ED2-1 
ED3=ED3+1 
ED4=ED4+2 
SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2, ED3, ED4 

ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2, ED3, ED4 


ys 


EDl=EDl-4 

ED2=ED2-9 


IF (RIBTYP (1-1) .EQ. 1) ED2=ED2+1 
ED3=ED3-8 
ED4=ED4-9 
SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) ED 1 , ED2 , ED 3 , ED 4 


ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2, ED3, ED4 

EDl=EDl+2 

ED2=ED2+2 

ED3=ED3+2 

ED4=ED4+2 

SURFAC=SURFAC+1 

WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI , ED2 , ED3, ED 4 


SDl=EDl+2 


GEN41610 

GEN41620 

GEN41630 

GEN41640 

GEN41650 

GEN41660 

GEN41670 

GEN 41680 

GEN 41690 

GEN41700 

GEN41710 

GEN41720 

GEN 41730 

GEN41740 

GEN41750 

GEN41760 

GEN41770 

GEN41780 

GEN41790 

GEN41800 

GEN41810 

GEN41820 

GEN41830 

GEN41840 

GEN41850 

GEN41860 

GEN41870 

GEN41880 

GEN41890 

GEN41900 

GEN41910 

GEN41920 

GEN41930 

GEN41940 

GEN41950 

GEN41960 

GEN4197 0 

GEN41980 

GEN41990 

GEN42000 

GEN42010 

GEN42020 

GEN42030 

GEN 42040 

GEN42050 

GEN42060 

GEN42070 

GEN42080 

GEN42090 

GEN42100 

GEN42110 

GEN42120 

GEN42130 

GEN42140 

GEN42150 

GEN42160 

GEN42170 

GEN42180 

GEN42190 

GEN42200 

GEN42210 

GEN42220 

GEN 42230 

GEN42240 
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ED2-ED2+7 

IF (RIBTYP (1-1) .EQ. 1) ED2-ED2-1 
ED3=ED3+2 
ED4-ED4+7 
SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2, ED3, ED4 

ED1-ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4-ED4+1 

SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2 , ED3, ED4 

EDI— ED1+2 
ED2-ED2+2 
ED3-ED3+2 
ED4-ED4+2 
SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2, ED3, ED4 

ED1-ED1+6 

ED2-ED2+23 

IF (RIBTYP (1-1) .EQ.l) ED2-ED2-2 
IF (RIBTYP (1-1) .EQ.2) ED2-ED2-2 
IF (CNLTYP (1-1) .EQ.2) ED2-ED2+4 
ED3-ED3+6 
ED4— ED4-13 
SURFAC-SURFAC+1 

WRITE(12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

EDI— ED1+1 
ED2-ED2+1 
ED3-ED3+1 
ED4-ED4+1 
SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI , ED2 , ED3 , ED4 

EDI— ED1+2 
ED2-ED2+1 
ED3-ED3+2 
ED4-ED4+1 
SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2 , ED3, ED4 


EDI— ED1+1 
ED2-ED2+1 
ED3-ED3+1 
ED4-ED4+1 
SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) ED 1 , ED2 , ED 3 , ED 4 


ED1-ED1+6 

ED2-ED2-9 

ED3-ED3+11 

ED4-ED4+27 

SURFAC-SURFAC+1 


GEN42250 
GEN42260 
GEN42270 
GEN42280 
GEN42290 
GEN 42300 
GEN 42310 
GEN42320 
GEN42330 
GEN42340 
GEN42350 
GEN42360 
GEN42370 
GEN42380 
GEN42390 
GEN42400 
GEN42410 
GEN42420 
GEN42430 
GEN42440 
GEN42450 
GEN42460 
GEN42470 
GEN42480 
GEN42490 
GEN42500 
GEN42510 
GEN42520 
GEN42530 
GEN42540 
GEN42550 
GEN42560 
GEN42570 
GEN42580 
GEN42590 
GEN42600 
GEN42610 
GEN42620 
GEN42630 
GEN42640 
GEN42650 
GEN42660 
GEN42670 
GEN42680 
GEN42690 
GEN42700 
GEN42710 
GEN42720 
GEN42730 
GEN42740 
GEN 42750 
GEN42760 
GEN42770 
GEN42780 
GEN42790 
GEN42800 
GEN42810 
GEN42820 
GEN42830 
GEN42840 
GEN42850 
GEN428 60 
GEN42870 
GEN42880 
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685 


u 


WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

DO 685 J-l, 5 

ED1=ED1+1 

ED2-ED2+1 

ED3-ED3+1 

ED4-ED4+1 

SURFAC-SURFAC+1 

WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2, ED3, ED4 

CONTINUE 

ED1-ED1-5 

ED2=ED2-9 

ED3=ED3-10 

ED4=ED4-9 

SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

EDl=EDl+2 

ED2=ED2+1 

ED3=ED3+2 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

EDl=EDl+2 
ED2=ED2+7 
ED3=ED3+2 
ED4=ED4+7 
SURF AC= SURFAC +1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE(12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

EDl=EDl+2 


GEN42890 

GEN42900 

GEN42910 

GEN42920 

GEN42930 

GEN42940 

GEN42950 

GEN42960 

GEN42970 

GEN42980 

GEN42990 

GEN43000 

GEN43010 

GEN43020 

GEN43030 

GEN43040 

GEN43050 

GEN43060 

GEN43070 

GEN43080 

GEN 43090 

GEN43100 

GEN43110 

GEN43120 

GEN43130 

GEN 43140 

GEN43150 

GEN43160 

GEN43170 

GEN43180 

GEN43190 

GEN43200 

GEN43210 

GEN43220 

GEN43230 

GEN43240 

GEN43250 

GEN43260 

GEN43270 

GEN43280 

GEN432 90 

GEN43300 

GEN43310 

GEN43320 

GEN43330 

GEN43340 

GEN43350 

GEN43360 

GEN43370 

GEN43380 

GEN43390 

GEN43400 

GEN43410 

GEN43420 

GEN43430 

GEN43440 

GEN43450 

GEN43460 

GEN43470 

GEN43480 

GEN43490 

GEN43500 

GEN43510 

GEN43520 
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ED2-ED2+1 

ED3=ED3+2 

ED4-ED4+1 

SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2 , ED3, ED4 

ED1=ED1+1 

ED2-ED2+1 

ED3=ED3+1 

ED4-ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2 , ED3, ED4 

ED1-ED1+6 

ED2-ED2+23 

ED3-ED3+6 

ED4=ED4-13 

SURFAC=SURFAC+1 

WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED 4 


ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 


EDl=EDl+2 

ED2=ED2+1 

ED3=ED3+2 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 


ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED 3, ED 4 


ENDIF 

IF ( RIBTYP ( I ) . EQ . 1 ) THEN 

IF (CNLTYP (I) .EQ. 1) THEN 

IF ( I . EQ . NUMBER) GO TO 690 
EDl=EDl+6 
ED2=ED2-8 
ED3=ED3+10 
ED4=ED4+24 
SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

ELSE IF (CNLTYP (I) .EQ. 2) THEN 


GEN 43530 
GEN43540 
GEN43550 
GEN43560 
GEN43570 
GEN43580 
GEN43590 
GEN43600 
GEN43610 
GEN43620 
GEN43630 
GEN43640 
GEN43650 
GEN43660 
GEN43670 
GEN43680 
GEN43690 
GEN43700 
GEN43710 
GEN43720 
GEN43730 
GEN43740 
GEN43750 
GEN437 60 
GEN43770 
GEN43780 
GEN43790 
GEN43800 
GEN43810 
GEN43820 
GEN43830 
GEN43840 
GEN43850 
GEN43860 
GEN 43870 
GEN43880 
GEN43890 
GEN43900 
GEN43910 
GEN43920 
GEN43930 
GEN43940 
GEN43950 
GEN43960 
GEN43970 
GEN43980 
GEN43990 
GEN44000 
GEN44010 
GEN44020 
GEN44030 
GEN44040 
GEN44050 
GEN44060 
GEN44070 
GEN44080 
GEN440 90 
GEN44100 
GEN44110 
GEN44120 
GEN44130 
GEN44140 
GEN44150 
GEN44160 
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ED1-ED1+6 

ED2-ED2+3 

ED3-ED3+6 

ED4-ED4+13 

SURFAC-SURFAC+1 


ISRCT-ISRCT+1 
WRITE (20,*) SURF AC, I 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

IF (I .EQ. NUMBER) GO TO 690 


EDl=EDl+4 

ED2=ED2-11 

ED3=ED3+8 

ED4=ED4+15 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 


END IF 

ELSE IF (RIBTYP (I) .EQ.2) THEN 

IF ( I. EQ. NUMBER) GO TO 690 
EDl=EDl+6 
ED2=ED2-9 
ED3=ED3+10 
ED4=ED4+25 
SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2 , ED3, ED4 


ENDIF 


690 CONTINUE 

TEMP SU=SURFAC 
TEMSU=SURF AC 
EDGE=TEMPED 


NSRC=SURFAC 

WRITE (NO, *) 'NUMBER OF SURFACES IN RC SEGMENTS - ',NSRC 


C 

C 

C 

C 

C 

C 


* 
★ 
* 
★ 


BEGIN GENERATION OF THE SURFACES OF THE 
EXHAUST PORT 






IF (IEPQUE.EQ. 1) THEN 

DO 715 JJ=1 , IEND 

SURT=SURFAC 

ED1=EDGE+1 

ED2=EDGE+26 

ED3=EDGE+15 

ED4=EDGE+27 

SURFAC=SURFAC+1 


GEN44170 

GEN 44180 

GEN44190 

GEN44200 

GEN44210 

GEN44220 

GEN44230 

GEN44240 

GEN44250 

GEN44260 

GEN44270 

GEN44280 

GEN442 90 

GEN44300 

GEN44310 

GEN44320 

GEN 44330 

GEN44340 

GEN44350 

GEN 44360 

GEN44370 

GEN44380 

GEN44390 

GEN44400 

GEN44410 

GEN 44420 

GEN44430 

GEN44440 

GEN44450 

GEN44460 

GEN44470 

GEN44480 

GEN44490 

GEN44500 

GEN 44510 

GEN44520 

GEN 44530 

GEN44540 

GEN44550 

GEN44560 

GEN44570 

GEN44580 

GEN44590 

GEN 44 600 

GEN44610 

GEN44620 

GEN44630 

GEN44640 

GEN44650 

GEN44660 

GEN44670 

GEN44680 

GEN44690 

GEN44700 

GEN44710 

GEN44720 

GEN44730 

GEN44740 

GEN44750 

GEN447 60 

GEN44770 

GEN44780 

GEN44790 

GEN 44800 
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WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

DO 695 J-1,19 

ED1-ED1+1 

ED2-ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2 , ED3, ED 4 

IF (J.EQ.9) ED4=ED4-24 

IF (J.EQ.10) THEN 

ED2=ED2-2 4 
ED3=ED3-12 
ED4=ED4+12 


ENDIF 

IF (J.EQ.ll) THEN 

EDl=EDl+3 

ED2=ED2+23 

ED3=ED3+32 

ED4=ED4+11 

ENDIF 

IF ( ( (JJ.EQ.3) .OR. (JJ.EQ.4) ) .AND. (J.EQ.ll) ) GO TO 700 

IF (J.EQ.15) THEN 

EDl=EDl+2 

ED2=ED2+1 

ED4=ED4+1 

ENDIF 

695 CONTINUE 

700 IF (JJ.EQ.IEND) GO TO 710 

ED1-EDGE+1 
ED2=EDGE+55 
ED3=EDGE+1+NLNEP ( JJ) 

ED4=EDGE+56 

IF( (JJ.EQ.3) .OR. (JJ.EQ.4) ) THEN 

ED2=ED2-18 

ED4=ED4-18 


ENDIF 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED 4 

DO 705 J=1 , 53 


GEN44810 

GEN44820 

GEN44830 

GEN44840 

GEN44850 

GEN448 60 

GEN44870 

GEN44880 

GEN448 90 

GEN44900 

GEN44910 

GEN44920 

GEN44930 

GEN44940 

GEN44950 

GEN44960 

GEN44970 

GEN44980 

GEN44990 

GEN45000 

GEN45010 

GEN45020 

GEN45030 

GEN45040 

GEN 45050 

GEN45060 

GEN45070 

GEN45080 

GEN45090 

GEN45100 

GEN45110 

GEN45120 

GEN45130 

GEN45140 

GEN45150 

GEN 45160 

GEN45170 

GEN45180 

GEN45190 

GEN45200 

GEN45210 

GEN45220 

GEN45230 

GEN45240 

GEN45250 

GEN45260 

GEN45270 

GEN45280 

GEN45290 

GEN45300 

GEN45310 

GEN45320 

GEN45330 

GEN45340 

GEN45350 

GEN45360 

GEN45370 

GEN45380 

GEN45390 

GEN45400 

GEN45410 

GEN45420 

GEN45430 

GEN45440 
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705 

710 

715 

720 


ED1=ED1+1 

ED2=ED2+1 

ED3-ED3+1 

ED4-ED4+1 

SURFAC-SURFAC+1 

WRITE (12, 640) SURF AC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI , ED2 , ED 3, ED 4 

IF (J.EQ.10) ED4=ED4-12 
IF (J.EQ.ll) ED4=ED4+10 
IF (J.EQ.12) ED2=ED2-1 
IF (J.EQ.12) ED4-ED4+1 

IF (J.EQ.23) ED4=ED4-12 
IF (J.EQ.24) ED2=ED2-24 

IF ( ( (JJ.EQ.2) .OR. (JJ.EQ.3) .OR. (JJ.EQ.4) ) .AND. 

# (J.EQ.35) ) GO TO 710 

IF (J.EQ.35) ED2=ED2+3 
IF (J.EQ.40) ED2=ED2+1 

IF (J.EQ.44) ED2=ED2-12 
IF (J.EQ.45) ED2=ED2+1 1 
IF (J.EQ.45) ED4-ED4-9 

IF (J.EQ.49) ED2-ED2+1 
IF (J.EQ.49) ED4=ED4+1 

CONTINUE 

EDGE=EDGE+NLNEP ( JJ) 

SURB=SURFAC 

NSREP ( JJ) =SURB-SURT 

CONTINUE 

ITOTAL=0 

DO 720 J=1 , IEND 

ITOTAL~ITOTAL+NLNEP ( J) 

NEDEP=ITOTAL+TEMPED 

TEMSU1=SURFAC 

DO 755 JJ=1, 2 

ED1-NEDEP+1 
ED2=NEDEP+13 
ED3=NEDEP+5 
ED4=NEDEP+1 4 
SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2 , ED3, ED4 

DO 725 J-1,7 

ED1=ED1+1 

ED2-ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 


GEN45450 

GEN454 60 

GEN45470 

GEN45480 

GEN454 90 

GEN45500 

GEN45510 

GEN4552 0 

GEN45530 

GEN45540 

GEN45550 

GEN45560 

GEN45570 

GEN4558 0 

GEN45590 

GEN45600 

GEN45610 

GEN45620 

GEN45630 

GEN45640 

GEN45650 

GEN45660 

GEN45670 

GEN 45680 

GEN45690 

GEN45700 

GEN457 10 

GEN45720 

GEN45730 

GEN45740 

GEN45750 

GEN457 60 

GEN45770 

GEN45780 

GEN457 90 

GEN45800 

GEN45810 

GEN45820 

GEN45830 

GEN458 40 

GEN45850 

GEN458 60 

GEN458 7 0 

GEN458 80 

GEN458 90 

GEN45900 

GEN45910 

GEN45920 

GEN45930 

GEN 45940 

GEN45950 

GEN45960 

GEN45970 

GEN4598 0 

GEN45990 

GEN46000 

GEN46010 

GEN46020 

GEN46030 

GEN46040 

GEN46050 

GEN46060 

GEN46070 

GEN4 6080 
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725 


730 


WRITE (12, 645) EDI, ED2, ED3, ED4 

IF (J.EQ.3) THEN 

ED2=ED2+1 

ED4=ED4+1 

ENDIF 


CONTINUE 

EDl=TEMPED+46 

ED2=NEDEP+27 

ED3=NEDEP+1 

ED4=NEDEP+23 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

EDl=EDl-32 

ED2=ED2-4 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2 , ED3, ED 4 

DO 730 J=1 , 2 

ED1=ED1+1 
ED2=ED2+1 
ED3=ED3+1 
ED.4=ED4 + 1 
SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED 3, ED 4 

IF (J.EQ.l) ED1=ED1+21 


CONTINUE 

IF (JJ.EQ.2) GO TO 750 

ED1=NEDEP+1 
ED2=NEDEP+2 8 
ED3=NEDEP+1+NLNEP1 (JJ) 

ED4=NEDEP+29 

SURFAC=SURFAC+1 

WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

DO 735 J=l, 11 

ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

IF ( (J.EQ.3) .OR. (J.EQ.7) ) THEN 

ED2=ED2+1 


GEN46090 

GEN46100 

GEN46110 

GEN46120 

GEN46130 

GEN46140 

GEN46150 

GEN46160 

GEN46170 

GEN46180 

GEN46190 

GEN46200 

GEN46210 

GEN46220 

GEN46230 

GEN46240 

GEN46250 

GEN46260 

GEN46270 

GEN46280 

GEN46290 

GEN46300 

GEN46310 

GEN46320 

GEN46330 

GEN46340 

GEN46350 

GEN46360 

GEN 46370 

GEN46380 

GEN46390 

GEN46400 

GEN46410 

GEN46420 

GEN46430 

GEN46440 

GEN46450 

GEN46460 

GEN46470 

GEN46480 

GEN46490 

GEN46500 

GEN46510 

GEN46520 

GEN46530 

GEN46540 

GEN46550 

GEN46560 

GEN46570 

GEN46580 

GEN46590 

GEN46600 

GEN46610 

GEN46620 

GEN46630 

GEN46640 

GEN46650 

GEN46660 

GEN46670 

GEN46680 

GEN46690 

GEN46700 

GEN46710 

GEN46720 


r 
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ED4=ED4+1 

GEN 46730 




GEN46740 

— 


END IF 

GEN46750 




GEN46760 


735 

CONTINUE 

GEN46770 




GEN46780 

— 


ED1-NEDEP+13 

GEN46790 



ED2-NEDEP+28 

GEN46800 



ED 3 =NEDEP + 1 3 +NLNEP 1 (JJ) 

GEN46810 



ED4=NEDEP+33 

GEN46820 



SURFAC=SURFAC+1 

GEN46830 



WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN46840 



WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN46850 





GEN46860 



DO 740 J=l, 9 

GEN46870 




GEN46880 



ED1=ED1+1 

GEN46890 

"V 


ED2=ED2+1 

GEN46900 



ED3=ED3+1 

GEN46910 



ED4=ED4+1 

GEN46920 



SURFAC=SURFAC+1 

GEN46930 



WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN46940 



WRITE (12, 645) EDI , ED2 , ED3, ED4 

GEN46950 




GEN 4 6960 


740 

CONTINUE 

GEN46970 




GEN46980 



EDl=NEDEP+27 

GEN46990 

: : 


ED2=TEMPED + 8 8 

GEN47000 

— 


ED3=NEDEP+2 7 +NLNEP 1 (JJ) 

GEN47010 



ED4=NEDEP+28 

GEN47020 



SURFAC=SURFAC+1 

GEN47030 



WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN47040 



WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN47050 




GEN47060 



EDl=EDl-4 

GEN47070 



ED2=ED2-21 

GEN47080 



ED3=ED3-4 

GEN47090 



ED4=ED4+1 

GEN47100 



SURFAC=SURFAC+1 

GEN47110 



WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN47120 



WRITE (12, 645) EDI, ED2 , ED3, ED4 

GEN47130 

- ; 



GEN47140 



DO 745 J-1,3 

GEN47150 




GEN47160 



ED1=ED1+1 

GEN47170 



ED2=ED2+1 

GEN47180 



ED3=ED3+1 

GEN47190 

”W" 


ED4=ED4+1 

GEN47200 



SURFAC=SURFAC+ 1 

GEN472 10 



WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMBGEN47220 

— 


WRITE (12, 645) EDI , ED2 , ED3, ED4 

GEN47230 




GEN47240 



IF (J.EQ.2) ED2=ED2+9 

GEN47250 




GEN47260 

v 

745 

CONTINUE 

GEN47270 




GEN47280 


750 

NEDEP=NEDEP+NLNEP1 ( JJ) 

GEN47290 



TEMPED=TEMPED+NLNEP ( JJ) 

GEN47300 




GEN47310 


755 

CONTINUE 

GEN47320 




GEN47330 



ENDIF 

GEN47340 




GEN47350 



NEDEP=NLEP+NLRC+SPLINE 

GEN47360 


i 
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TEMPID=NEDEP 

GEN47370 



TEMPI1-NEDEP+NLNIP (1) +NLNIP (2) +NLNIP (3) +NLNIP (4) 

GEN47380 

— 



GEN47390 



NSEP-SURFAC 

GEN 47400 



NSEP 1=SURFAC-NSRC 

GEN47410 



WRITE (NO, *) 'NUMBER OF SURFACES IN EXHAUST PORT = ',NSEP1 

GEN4742 0 



NSEPX-NSEP 

GEN47430 




GEN47440 


C 


GEN47450 

_ 

C 

* * 

GEN47460 


c 

* BEGIN GENERATION OF THE SURFACES OF THE * 

GEN47470 


c 

* INTAKE PORT * 

GEN47480 

i 

c 

* * 

GEN47490 


c 

A************************************************************ 

GEN 47500 




GEN47510 



IF (IIPQUE.EQ.l) THEN 

GEN47520 




GEN47530 

s " —b 


DO 780 JJ=1, IEND 

GEN47540 




GEN47550 

| : 


SURT*SURFAC 

GEN47560 



ED1=NEDEP+1 

GEN47570 



ED2=NEDEP+28 

GEN47580 



ED3=NEDEP+15 

GEN47590 

i 


ED4=NEDEP+2 9 

GEN47600 

— 


SURFAC-SURFAC+1 

GEN 47610 



WRITE ( 12 , 640) SURF AC, COLOR, DASH, GRADE, NUMB 

GEN47620 



WRITE (12, 645) EDI , ED2 , ED3, ED 4 

GEN47630 




GEN47640 



DO 760 J=l, 21 

GEN47650 




GEN47660 



IF (J.EQ.l) THEN 

GEN 47670 




GEN47680 



NUMB=3 

GEN47690 



ED2=ED2+1 

GEN47700 



ED3=ED3+1 

GEN47710 

~ - 


ED4=ED4+1 

GEN47720 



SURFAC=SURFAC+1 

GEN47730 



WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN47740 



WRITE (12, 645) ED2 , ED3, ED4 

GEN47750 

— 


NUMB=4 

GEN47760 




GEN47770 

- . 


ENDIF 

GEN 477 80 




GEN 477 90 



ED1=ED1+1 

GEN47800 



ED2=ED2+1 

GEN 47810 



ED3=ED3+1 

GEN47820 



ED4=ED4+1 

GEN47830 



SURFAC=SURFAC+1 

GEN47840 



WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN47850 



WRITE (12, 645) EDI, ED2 , ED3, ED4 

GEN47860 

— 



GEN47870 



IF (J.EQ.10) THEN 

GEN47880 




GEN47890 



NUMB=3 

GEN47900 



ED2=ED2+1 

GEN47910 



ED3=ED3+1 

GEN47920 



ED4=ED4-27 

GEN47930 

_ 


SURFAC=SURFAC+1 

GEN47940 



WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, 

NUMBGEN 47 950 



WRITE (12, 645) ED2, ED3, ED4 

GEN47960 

; ’ 


ED2=ED2-28 

GEN47970 

— 


ED3=ED3-14 

GEN47980 



ED4=ED4+14 

GEN47990 



NUMB=4 

GEN48000 
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760 

765 


ENDIF 

IF (J.EQ.ll) THEN 

EDl=EDl+3 

ED2=ED2+27 

ED3=ED3+38 

ED4=ED4+13 

ENDIF 

IF ( ( (JJ.EQ.3) .OR. (JJ.EQ.4) ) .AND. (J.EQ.ll) ) GO TO 765 

IF (J.EQ.16) THEN 

EDl=EDl+2 

ED2=ED2+1 

ED4=ED4+1 

ENDIF 


CONTINUE 

IF (JJ.EQ.IEND) GO TO 775 

ED1=NEDEP+1 
ED2=NEDEP+63 
ED3=NEDEP+1+NLNIP ( JJ) 

ED4=NEDEP+64 

IF( (JJ.EQ.3) .OR. (JJ.EQ.4) ) THEN 

ED2=ED2-22 

ED4=ED4-22 


ENDIF 

SURFAC=SURFAC+1 

WRITE (12, 640) SURF AC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

DO 770 J=l, 61 

ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE ( 12 , 640) SURF AC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2, ED3, ED4 

IF (J.EQ.10) ED4=ED4-12 
IF (J.EQ.ll) ED4=ED4+11 
IF (J.EQ.ll) ED2=ED2-1 

IF (J.EQ.25) ED4=ED4-14 
IF (J.EQ.26) ED2=ED2-26 
IF (J.EQ.28) ED2=ED2-1 

IF ( ( (JJ.EQ.2) .OR. (JJ.EQ.3) .OR. (JJ.EQ.4) ) .AND. 

# (J.EQ.39) ) GO TO 775 

IF (J.EQ.39) ED2=ED2+2 


GEN48010 
GEN 48020 
GEN48030 
GEN48040 
GEN48050 
GEN48060 
GEN48070 
GEN48080 
GEN48090 
GEN48100 
GEN48110 
GEN48120 
GEN48130 
GEN48140 
GEN 48150 
GEN 48160 
GEN48170 
GEN48180 
GEN48190 
GEN48200 
GEN48210 
GEN48220 
GEN 48230 
GEN 48240 
GEN48250 
GEN48260 
GEN48270 
GEN48280 
GEN48290 
GEN48300 
GEN 48310 
GEN48320 
GEN48330 
GEN 48340 
GEN 48350 
GEN48360 
GEN48370 
GEN48380 
GEN48390 
GEN48400 
GEN48410 
GEN48420 
GEN48430 
GEN48440 
GEN48450 
GEN48460 
GEN48470 
GEN48480 
GEN48490 
GEN48500 
GEN48510 
GEN48520 
GEN48530 
GEN48540 
GEN48550 
GEN48560 
GEN48570 
GEN48580 
GEN48590 
GEN48600 
GEN48610 
GEN48620 
GEN48630 
GEN48640 
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IF (J.EQ.45) ED2=ED2+1 

GEN48650 


IF (J.EQ.50) ED2-ED2-14 

GEN48660 

GEN48670 


IF (J.EQ.51) ED2=ED2+13 

GEN48680 


IF (J.EQ.51) ED4=ED4-11 

GEN48690 

GEN48700 


IF (J.EQ.56) ED2-ED2+1 

GEN48710 


IF (J.EQ.56) ED4=ED4+1 

GEN48720 

GEN48730 

770 

CONTINUE 

GEN48740 



GEN48750 

775 

NEDEP=NEDEP+NLNIP ( JJ) 

GEN48760 


SURB-SURFAC 

GEN 48770 


NSRIP ( JJ) =SURB-SURT 

GEN48780 


IF (JJ.EQ.4) NSIP2 (JJ) =SURFAC 

GEN487 90 

780 

CONTINUE 

GEN48800 


NS IP 1-SURF AC 

GEN48810 



GEN48820 


DO 815 JJ-1, 2 

GEN48830 

GEN48840 


ED1-TEMPID+47 

GEN48850 


ED2-NEDEP+27 

GEN48860 


ED3-NEDEP+1 

GEN48870 


ED4-NEDEP+23 

GEN48880 


SURFAC-SURFAC+1 

GEN 48890 


WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN 48 900 


WRITE (12, 645) ED 1 , ED2 , ED 3 , ED 4 

GEN48910 



GEN48920 


EDI— ED1-25 

GEN48930 


ED2-ED2-4 

GEN 48 940 


ED3-ED3+1 

GEN48950 


ED4—ED4+1 

GEN48960 


SURFAC-SURFAC+1 

GEN48970 


WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN48980 


WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN48990 

GEN49000 


DO 785 J-l, 2 

GEN49010 

GEN49020 


EDI— ED1-1 

GEN49030 


ED2-ED2+1 

GEN49040 


ED3-ED3+1 

GEN49050 


ED4-ED4+1 

GEN49060 


SURFAC-SURFAC+1 

GEN49070 


WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN49080 


WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN49090 

GEN49100 


IF (J.EQ.l) ED1-ED1+2 6 

GEN49110 

GEN49120 

785 

CONTINUE 

GEN49130 

GEN49140 


ED1-NEDEP+1 

GEN49150 


ED2-NEDEP+13 

GEN49160 


ED3-NEDEP+5 

GEN49170 


ED4-NEDEP+1 4 

GEN49180 


SURFAC-SURFAC+1 

GEN49190 


WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN49200 


WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN49210 

GEN49220 


DO 790 J-l, 7 

GEN49230 

GEN49240 


EDI— ED1+1 

GEN49250 


ED2-ED2+1 

GEN49260 


ED3-ED3+1 

GEN49270 


ED4-ED4+1 

GEN49280 


p 
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SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2 , ED3, ED4 

IF (J.EQ.3) THEN 

ED2=ED2+1 

ED4=ED4+1 

ENDIF 

CONTINUE 

IF (JJ.EQ.2) GO TO 810 

ED1=NEDEP+1 
ED2=NEDEP+28 
ED3=NEDEP+l+NLNIPl (JJ) 

ED4=NEDEP+2 9 
SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

DO 795 J=l,ll 

ED1=ED1+1 
ED2=ED2+1 
ED3=ED3+1 
ED4=ED4+1 
SURF AC= SURF AC + 1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

IF ( (J.EQ.3) .OR. (J.EQ.7)) THEN 

ED2=ED2+1 

ED4=ED4+1 

ENDIF 

CONTINUE 

EDl=NEDEP+27 
ED2=TEMPID+95 
ED3=NEDEP+27+NLNIPl ( JJ) 

ED4=NEDEP+28 

SURFAC=SURFAC+1 

WRITE(12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI , ED2 , ED 3, ED 4 

EDl=EDl-4 

ED2=ED2-11 

ED3=ED3-4 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI , ED2 , ED3, ED4 

DO 800 J=l, 3 

ED1=ED1+1 
ED2=ED2-1 
ED3=ED3+1 
ED4=ED4+1 



GEN49290 
GEN49300 
GEN49310 
GEN49320 
GEN 49330 
GEN49340 
GEN49350 
GEN49360 
GEN49370 
GEN49380 
GEN49390 
GEN 49400 
GEN 49410 
GEN49420 
GEN49430 
GEN49440 
GEN49450 
GEN 49460 
GEN49470 
GEN 49480 
GEN49490 
GEN49500 
GEN49510 
GEN49520 
GEN 49530 
GEN49540 
GEN49550 
GEN49560 
GEN49570 
GEN49580 
GEN49590 
GEN49600 
GEN49610 
GEN49620 
GEN49630 
GEN49640 
GEN49650 
GEN49660 
GEN49670 
GEN49680 
GEN49690 
GEN49700 
GEN49710 
GEN49720 
GEN49730 
GEN49740 
GEN49750 
GEN49760 
GEN49770 
GEN49780 
GEN49790 
GEN49800 
GEN49810 
GEN49820 
GEN49830 
GEN49840 
GEN49850 
GEN49860 
GEN49870 
GEN49880 
GEN49890 
GEN49900 
GEN49910 
GEN49920 
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800 


805 

810 

815 


SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, 
WRITE (12, 645) EDl,ED2,ED3,ED4 

IF (J.EQ.2) ED2=ED2+13 

CONTINUE 

ED1=NEDEP+13 
ED2=NEDEP+28 
ED 3=NEDEP +13 +NLNI P 1 (JJ) 

ED4=NEDEP+33 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

DO 805 J-l, 9 

ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2 , ED3, ED4 

CONTINUE 

NEDEP=NEDEP+NLNIP1 (JJ) 

TEMP ID=TEMP ID+NLNIP (JJ) 

CONTINUE 

DO 850 JJ=5, IEND 

SURT= SURFAC 

EDl=TEMPIl+47 

ED2=NEDEP+27 

ED3=NEDEP+1 

ED4=NEDEP+23 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

EDl=EDl-25 

ED2=ED2-4 

ED3=ED3+1 

ED4=ED4+1 

SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 


DO 820 J=1 , 2 


ED1=ED1-1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE ( 12 , 645) EDI, ED2, ED3, ED4 

IF (J.EQ.l) EDl=EDl+2 6 


GEN49930 
NUMBGEN 49940 
GEN49950 
GEN49960 
GEN49970 
GEN49980 
GEN49990 
GEN50000 
GEN50010 
GEN50020 
GEN50030 
GEN50040 
GEN50050 
GEN50060 
GEN50070 
GEN50080 
GEN50090 
GEN50100 
GEN50110 
GEN50120 
GEN50130 
GEN50140 
GEN50150 
GEN50160 
GEN50170 
GEN50180 
GEN50190 
GEN50200 
GEN50210 
GEN50220 
GEN50230 
GEN50240 
GEN50250 
GEN50260 
GEN50270 
GEN50280 
GEN50290 
GEN50300 
GEN50310 
GEN50320 
GEN50330 
GEN50340 
GEN50350 
GEN50360 
GEN50370 
GEN50380 
GEN50390 
GEN50400 
GEN50410 
GEN50420 
GEN50430 
GEN50440 
GEN50450 
GEN50460 
GEN50470 
GEN50480 
GEN50490 
GEN50500 
GEN50510 
GEN50520 
GEN50530 
GEN50540 
GEN50550 
GEN50560 
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820 


825 


830 


CONTINUE 

ED1=NEDEP+1 

ED2-NEDEP+13 

ED3-NEDEP+5 

ED4-NEDEP+14 

SURFAC-SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

DO 825 J=l, 7 

ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2 , ED3, ED4 

IF (J.EQ.3) THEN 

ED2=ED2+1 

ED4=ED4+1 

ENDIF 

CONTINUE 

IF (JJ.EQ.IEND) GO TO 845 

ED1=NEDEP+1 
ED2=NEDEP+2 8 
ED3=NEDEP+1+NLNIP2 ( JJ) 

ED4=NEDEP+2 9 
SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

DO 830 J=l, 11 

ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI, ED2, ED3, ED4 

IF ( (J.EQ.3) .OR. (J.EQ.7) ) THEN 

ED2=ED2+1 

ED4=ED4+1 

ENDIF 

CONTINUE 

EDl=NEDEP+27 
ED2=TEMPIl+95 
ED3=NEDEP+27+NLNIP2 (JJ) 

ED4=NEDEP+28 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 


GEN50570 
GEN50580 
GEN50590 
GEN50600 
GEN50610 
GEN50620 
GEN50630 
GEN50640 
GEN50650 
GEN50660 
GEN50670 
GEN50680 
GEN50690 
GEN50700 
GEN50710 
GEN50720 
GEN50730 
GEN50740 
GEN50750 
GEN50760 
GEN50770 
GEN50780 
GEN50790 
GEN50800 
GEN50810 
GEN50820 
GEN50830 
GEN50840 
GEN50850 
GEN50860 
GEN50870 
GEN50880 
GEN50890 
GEN50900 
GEN50910 
GEN50920 
GEN50930 
GEN50940 
GEN50950 
GEN50960 
GEN50970 
GEN50980 
GEN50990 
GEN51000 
GEN510 10 
GEN51020 
GEN51030 
GEN51040 
GEN51050 
GEN51060 
GENS 1070 
GEN51080 
GENS 10 90 
GEN51100 
GEN51110 
GEN51120 
GEN51130 
GENS 11 40 
GEN51150 
GEN51160 
GEN51170 
GEN51180 
GEN51190 
GEN51200 
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835 


840 


845 


850 


WRITE(12, 645) EDI, ED2, ED3, ED4 

GEN51210 

GEN51220 

EDl=EDl-4 

GEN51230 

ED2-ED2-11 

GENS 12 40 

ED3=ED3-4 

GENS 12 50 

ED4-ED4+1 

GEN51260 

SURFAC=SURFAC+1 

GENS 1270 

WRITE (12, 640) SURF AC, COLOR, DASH, GRADE, NUMB GEN51280 

WRITE (12, 645) EDI, ED2 , ED3, ED 4 

GEN512 90 
GEN51300 

DO 835 J=l, 3 

GEN51310 

GEN51320 

ED1=ED1+1 

GENS 1330 

ED2=ED2-1 

GEN5134 0 

ED3=ED3+1 

GENS 1350 

ED4=ED4+1 

GEN51360 

SURFAC=SURFAC+1 

GEN51370 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, 

NUMBGEN51380 

WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN51390 

GEN51400 

-IF (J.EQ.2) ED2=ED2+13 

GEN51410 


GEN51420 

CONTINUE 

GEN51430 

GEN51440 

ED1=NEDEP+13 

GEN51450 

ED2=NEDEP+28 

GEN51460 

ED 3 =NEDEP + 13 +NLN IP 2 (JJ) 

GEN51470 

ED4=NEDEP+33 

GENS 1480 

SURFAC=SURFAC+1 

GEN51490 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN51500 

WRITE (12, 645) EDI, ED2, ED3, ED4 

GEN51510 

GEN51520 

DO 840 J=l, 9 

GEN51530 

GEN51540 

ED1=ED1+1 

GEN51550 

ED2=ED2+1 

GEN515 60 

ED3=ED3+1 

GENS 1570 

ED4=ED4+1 

GENS 1580 

SURFAC=SURFAC+1 

GENS 15 90 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GENS 1 600 

WRITE (12, 645) EDI , ED2, ED3, ED 4 

GEN51610 
GENS 1620 


CONTINUE 

NEDEP=NEDEP +NLNIP 2 (JJ) 
TEMP I 1=TEMP I 1+NLNIP (JJ) 
S URB= S URF AC 
NSIP3 ( JJ) =SURB-SURT 


CONTINUE 

END IF 

NSRTL=SURFAC 

NSIP5-SURFAC+1-NSRC-NSEP1 
WRITE (NO, *) f NUMBER OF SURFACES 


IN INTAKE PORT - ',NSIP5 


C 

C 

c 

c 

c 

c 


* 
* 
* 
* 


BEGIN GENERATION 
SPARK 


OF THE SURFACES OF THE 
PLUG PORT 




GEN51630 
GEN51640 
GEN51650 
GEN51660 
GENS 1670 
GENS 1 680 
GEN51690 
GEN51700 
GEN51710 
GENS 1720 
GEN51730 
GEN517 40 
GEN51750 
GENS 17 60 
GEN51770 
GEN51780 
GEN517 90 
GENS 18 00 
GEN518 10 
GEN51820 
GEN51830 
GENS 1840 


r 
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855 


82 


875 

JJJ-l, ISP 

GEN51850 

GEN51860 

DO 

870 JJ-1,IEND 

GEN51870 

GEN51880 


SURT-SURFAC 

GEN51890 

GEN51900 


EDl-NLNTL+1 

GEN51910 


ED2=NLNTL+36 

GEN51920 


ED3=NLNTL+11 

GEN51930 


ED4=NLNTL+37 

GEN51940 


SURFAC=SURFAC+1 

GEN51950 


WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 

GEN51960 


WRITE (12, 645) EDI, ED2, ED3, ED4 

GENS 1970 


DO 855 J=l, 19 

GEN51980 
GENS 19 90 


ED1=ED1+1 

GEN52000 

GEN52010 


ED2=ED2+1 

GEN52020 


ED3=ED3+1 

GEN52030 


ED4=ED4+1 

GEN52040 


SURF AC= SURF AC +1 

GEN52050 


WRITE (12, 640) SURF AC, COLOR, DASH, GRADE, NUMB 

GEN52060 


WRITE (12, 645) EDI , ED2, ED3, ED 4 

GEN52070 


IF (J.EQ.5) ED4=ED4-34 

GEN52080 

GEN52090 



GEN52100 


IF (J.EQ.6) THEN 

GEN52110 



GEN52120 


ED2=ED2-34 

GEN52130 


ED3=ED3-8 

GEN52140 


ED4=ED4+2 6 

GEN52150 


END IF 

GEN52160 

GEN52170 


IF (J.EQ.7) THEN 

GEN52180 

GEN52190 


ED1=ED1+1 

GEN52200 

GEN52210 


ED2=ED2+33 

GEN52220 


ED3=ED3+7 

GEN52230 


ED4=ED4+7 

GEN52240 


ENDIF 

GEN52250 

GEN52260 


IF (J.EQ.14) ED4=ED4-8 

GEN52270 

GEN52280 


IF (J.EQ.15) THEN 

GEN52290 

GEN52300 


EDl=EDl+2 

GEN52310 

GEN52320 


ED2=ED2-25 

GEN52330 


ED3=ED3+6 

GEN52340 


ED4=ED4-17 

GEN52350 


ENDIF 

GEN52360 

GEN52370 


IF (J.EQ.17) EDl=EDl+2 

GEN52380 

GEN52390 


IF (J.EQ.17) ED2=ED2+1 

GEN52400 


IF (J.EQ.17) ED4=ED4+1 

GEN52410 



GEN52420 


CONTINUE 

GEN52430 

IF 

(JJ.EQ.IEND) GO TO 865 

GEN52440 

GEN52450 


ED1=NLNTL+1 

GEN52460 

GEN52470 


ED2=NLNTL+5 1 

GEN52480 
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860 

865 

870 

875 


ED3=NLNTL+1+NLNSP <JJ) 

ED4-NLNTL+52 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI , ED2 , ED3 , ED 4 

DO 860 J=l, 49 

ED1=ED1+1 

ED2=ED2+1 

ED3=ED3+1 

ED4=ED4+1 

SURFAC=SURFAC+1 

WRITE (12, 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE (12, 645) EDI , ED2, ED3, ED 4 

IF (J.EQ.6) ED4=ED4-8 

IF (J.EQ.7) ED2=ED2-1 
IF (J.EQ.7) ED4=ED4+7 

IF (J.EQ.15) ED4=ED4-8 

IF (J.EQ.16) ED4=ED4+8 

IF ( J.EQ.23) ED4=ED4-8 

IF (J.EQ.24) ED2=ED2-6 
IF (J.EQ.24) ED4=ED4+7 

IF (J.EQ.27) ED2=ED2+1 

IF (J.EQ.29) ED2=ED2-8 

IF (J.EQ.30) ED2=ED2+7 
IF (J.EQ.30) ED4=ED4-5 

IF (J.EQ.32) ED2=ED2+1 
IF (J.EQ.32) ED4=ED4+1 

IF (J.EQ.34) ED2=ED2-29 
IF (J.EQ.34) ED4=ED4-21 

IF (J.EQ.41) ED2=ED2+1 

CONTINUE 

NLNTL=NLNTL+NLNSP ( JJ) 

SURB=SURFAC 

NSRSP ( JJ) =SURB-SURT 

CONTINUE 

CONTINUE 

NSSP=SURFAC-NSRC-NSEP1-NSIP5+1 

WRITE (NO, *) ' NUMBER OF SURFACES IN SPARK PLUG(S) = ',NSSP 

ED1=ISTCN1+SPLINE 

ED2=ISTCN2+SPLINE 

ED3=ISTCN3+SPLINE 

ED4=ISTCN4+SPLINE 

SURFAC=SURFAC+1 

WRITE (20,*) SURFAC, NUMBER 


GEN52490 

GEN52500 

GEN52510 

GEN52520 

GEN52530 

GEN52540 

GEN52550 

GEN52560 

GEN52570 

GEN52580 

GEN5259%% [ 

GEN52600 

GEN52610 

GEN52620 

GEN52630 

GEN52640 

GEN52650 

GEN52660 

GEN52670 

GEN52680 

GEN52690 

GEN52700 

GEN52710 

GEN52720 

GEN52730 

GEN52740 

GEN52750 

GEN527 60 

GEN52770 

GEN52780 

GEN52790 

GEN52800 

GEN52810 

GEN52820 

GEN52830 

GEN52840 

GEN52850 

GEN52860 

GEN52870 

GEN52880 

GEN52890 

GEN52900 

GEN52910 

GEN52920 

GEN52930 

GEN52940 

GEN52950 

GEN52960 

GEN52970 

GEN52980 

GEN52990 

GEN53000 

GEN53010 

GEN53020 

GEN53030 

GEN53040 

GEN53050 

GEN530 60 

GEN53070 

GEN53080 

GEN53090 

GEN53100 

GEN53110 

GEN53120 


PrinterEr 
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GEN53130 
GEN53140 
GEN53150 
GEN53160 
GEN53170 
GEN53180 
GEN53190 
GEN53200 
GEN53210 
GEN53220 
GEN53230 

WRITE (NO, *) ' SURFACE LABELS OF RC SEGMENTS ARE 1 TO' , NSRCGEN532 40 

WRITE (NO, *) ' SURFACE LBLS OF EXHST PORT ARE' , NSRC+1, ' TO' , NSEP 1+NSRCGEN532 50 
WRITE (NO, *) ' SURFACE LBLS OF INTKE PORT ARE' , NSRC+NSEP1+1, ' TO' , NSIPGEN532 60 
#5+NSRC+NSEPl GEN53270 

WRITE (NO, *)' SURFACE LBLS OF SPRK PLUGS ARE' , NSRC+NSEP1+NSIP5+1, 'TOGEN53280 


WRITE ( 12 , 640) SURFAC, COLOR, DASH, GRADE, NUMB 
WRITE(12, 645) EDI, ED2, ED3, ED4 

CLOSE (20) 

WRITE (12, 245) 

WRITE (12, 245) 

WRITE (NO, *) 'TOTAL NUMBER OF SURFACES = ', SURFAC 
WRITE (NO, *) ' ' 

WRITE (NO,*) ' ' 


#' ,NSSP+NSRC+NSEP1+NSIP5 
WRITE (NO,*) ' ' 

WRITE (NO,*) ' ' 


C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


************************************************************* 
* * 

* END GENERATION OF THE SURFACES IN UNIVERSAL FORMAT * 

* * 
************************************************************* 

************************************************************* 
* * 

* BEGIN GENERATION OF THE VOLUMES OF THE INNER AND * 

* OUTER SHELLS IN UNIVERSAL FORMAT * 

* * 
************************************************************* 


WRITE (12, 880) 

880 FORMAT (4X, ' 39' ) 

SURFAC=TEMPSU 

NUMB=6 

VOLUME=l 

SUR1=1 

SUR2=6 

SUR3=SURFAC-3 

IF (CNLTYP (NUMBER) .EQ.2) SUR3=SUR3-1 
SUR4=9 
SUR5=12 
SUR6=2 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 
885 FORMAT (5110) 

WRITE (12,890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 
890 FORMAT ( 6110 ) 

DO 900 1=1, NUMBER 

IF (RIBTYP (I) .EQ. 1) THEN 

SUR1=SUR1+1 
SUR2=SUR2+1 
SUR3=SUR3+1 
SUR4=SUR4+1 
SUR5=SUR5+1 
SUR6=SUR6+1 
VOLUME=VOLUME + 1 


GEN53290 

GEN53300 

GEN53310 

GEN53320 

GEN53330 

GEN53340 

GEN53350 

GEN53360 

GEN53370 

GEN53380 

GEN53390 

GEN53400 

GEN53410 

GEN53420 

GEN53430 

GEN53440 

GEN53450 

GEN53460 

GEN53470 

GEN53480 

GEN53490 

GEN53500 

GEN53510 

GEN53520 

GEN53530 

GEN53540 

GEN53550 

GEN53560 

GEN53570 

GEN53580 

GEN53590 

GEN53600 

GEN53610 

GEN53620 

GEN53630 

GEN53640 

GEN53650 

GEN53660 

GEN53670 

GEN53680 

GEN53690 

GEN53700 

GEN53710 

GEN53720 

GEN53730 

GEN53740 

GEN53750 

GEN53760 
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IF ( I . NE . IVOLC ( I ) ) THEN 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 

WRITE (12, 890) SUR1, SUR2, SUR3, SUR4, SUR5, SUR6 


END IF 


SURl=SURl+2 
SUR2=SUR2+1 
SUR3=SUR3+2 
SUR4=SUR4+1 
SUR5=SUR5+2 
SUR6=SUR6+2 
VOLUME=VOLUME+ 1 


IF (I. NE. IVOLC (I)) THEN 


WRITE (12,885) 
WRITE (12, 890) 


VOLUME , COLOR, DASH , GRADE , NUMB 
SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 


ENDIF 


SUR1=SUR1+12 

SUR2-SUR2+13 

IF(I.EQ.l) THEN 

SUR3=SUR3+12-SURFAC 

ELSE IF (CNLTYP (1-1) .EQ.l) THEN 
StJR3=SUR3+12 

ELSE IF (CNLTYP ( I- 1) .EQ.2) THEN 
SUR3=SUR3+13 


ENDIF 


SUR4=SUR4+14 
SUR5=SUR5+14 
SUR6=SUR6+12 
VOLUME=VOLUME + 1 

IF ( 1 . NE . IVOLR ( I ) ) THEN 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 

WRITE (12,890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 


ENDIF 

DO 895 J-1,3 


SUR1=SUR1+1 
SUR2=SUR2+1 
SUR3=SUR3+1 
SUR4=SUR4+1 
SUR5=SUR5+1 
SUR6=SUR6+1 
VOLUME* VOLUME + 1 


IF (I.NE.IVOLR(I) ) THEN 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 

WRITE(12, 890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 


GEN53770 

GEN53780 

GEN53790 

GEN53800 

GEN53810 

GEN53820 

GEN53830 

GEN53840 

GEN53850 

GEN538 60 

GEN53870 

GEN53880 

GEN53890 

GEN53900 

GEN53910 

GEN53920 

GEN53930 

GEN53940 

GEN53950 

GEN53960 

GEN53970 

GEN53980 

GEN53990 

GEN54000 

GEN54010 

GEN54020 

GEN54030 

GEN54040 

GEN54050 

GEN54060 

GEN54070 

GEN54080 

GEN54090 

GEN54100 

GEN54110 

GEN54120 

GEN54130 

GEN54140 

GEN54150 

GEN54160 

GEN54170 

GEN54180 

GEN54190 

GEN54200 

GEN54210 

GEN54220 

GEN54230 

GEN54240 

GEN54250 

GEN54260 

GEN54270 

GEN54280 

GEN54290 

GEN54300 

GEN54310 

GEN54320 

GEN54330 

GEN54340 

GEN54350 

GEN54360 

GEN54370 

GEN54380 

GEN54390 

GENS 4 400 
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endif 

CONTINUE 


ELSE IF(RIBTYPd) -EQ-2) THEN 


SUR1=SUR1+1 
SUR2=SUR2+1 
SUR3=SUR3+1 
SUR4=SUR4+1 
SUR5=SUR5+1 
SUR6=SUR6+1 

VOLUME* VOLUME + 1 nR DASH, GRADE, NUMB 

«SIU: s?, *«. s »,e 

SURl=SURl+2 
SUR2=SUR2+1 

TP „c N LTVP ( S I -"; 1 ™.<«BTVP« I - 1 ..E a .X,, SUB3-SUP3*! 

£ 2> STO3-SUR3+ 1 ' 

SUR4=SUR4+1 
SUR5=SUR5+2 
SUR6=SUR6+2 

VOLUME=VOLUME+l _ _ « u rcAHE NUMB 

SUR1=SUR1+12 

SUR2=SUR2+14 

SSSStiil. .»•*) SUR3-SO R 3 + l 

SUR4=SUR4+15 

SUR5=SUR5+15 

SUR6=SUR6+12 

VOLUME=VOLUME+l DASH. GRADE, NUMB 

SSS‘«il:SSi 

SURl=SURl+l 

SUR2=SUR2+1 

SUR3=SUR3+1 

SUR4=SUR4+1 

SUR5=SUR5+1 

SUR6=SUR6+1 

VOLUME=VOLUME+l DASH. GRADE, NUMB 

SURl=SURl+2 

SUR2=SUR2+1 

SUR3=SUR3+1 

SUR4=SUR4+1 

SUR5=SUR5+1 

SUR6=SUR6+2 

VOLUME=VOLUME+l „ DASH, GRADE, NUMB 

«S!S:!U! 

SUR1=SUR1+1 

SUR2=SUR2+1 

SUR3=SUR3+1 

SUR4=SUR4+1 


GEN54410 

GEN54420 

GEN54430 

GEN54440 

GEN54450 

GEN54460 

GEN54470 

GEN54480 

GEN54490 

GEN54500 

GEN54510 

GEN54520 

GEN54530 

GEN54540 

GEN54550 

GEN54560 

GEN54570 

GEN54580 

GEN54590 

GEN54600 

GEN54610 

GEN54620 

GEN54630 

GEN54640 

GEN54650 

GEN54660 

GEN54670 

GEN54680 

GEN54690 

GEN54700 

GEN54710 

GEN54720 

GEN54730 

GEN547 40 

GEN54750 

GEN547 60 

GEN54770 

GEN54780 

GEN54790 
GEN54800 
GEN54810 
GEN54820 
GEN54830 
GEN54840 
GEN54850 
GEN54860 
GEN54870 
GEN54880 
GEN54890 
GEN54900 
GEN54910 
GEN54920 
GEN54930 
GEN54940 
GEN54950 
GEN54960 

GEN54970 

GEN54980 
GEN54990 
GEN55000 
GEN55010 
GEN55020 
GEN55030 
GEN55040 
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■ - 

SUR5=SUR5+1 

GEN55050 


SUR6=SUR6+1 

GEN55060 

— 

V0LUME=V0LUME+1 

GEN55070 


WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 

GEN55080 


WRITE (12,890) SUR1 , SUR2 , SUR3 , SUR4, SUR5 , SUR 6 

GEN55090 

GEN55100 



GEN55110 


END IF 

GENS 5 120 
GEN55130 


IF (RIBTYP (I) . EQ . 1 ) THEN 

GEN55140 



GEN55150 


IF (CNLTYP (I) .EQ. 1) THEN 

GEN551 60 

l ■ * 


GEN55170 


IF ( I. EQ. NUMBER) GO TO 900 

GEN55180 

GEN55190 


SUR1=SUR1+1 4 

GEN55200 

* ? 

SUR2=SUR2+14 

GEN55210 


SUR3=SUR3+14 

GEN55220 


SUR4=SUR4+13 

GEN55230 


SUR5=SUR5+12 

GEN55240 

; - 

SUR6=SUR6+14 

GEN55250 


VOLUME=VOLUME+ 1 

GEN55260 

_ _ 


GENS 52 70 


IF (I . NE . IVOLC (1+1) -1 ) THEN 

GEN55280 

w 


GEN552 90 


WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 

GEN55300 

— 

WRITE (12, 890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6GEN5 53 1 0 



GEN55320 


ENDIF 

GEN55330 

GEN55340 


ELSE IF (CNLTYP (I) .EQ. 2) THEN 

GEN55350 



GEN55360 


IF ( I . EQ . NUMBER) GO TO 900 

GEN5537 0 



GEN55380 

= - 

SUR1=SUR1+15 

GEN55390 


SUR2=SUR2+15 

GEN55400 


SUR3=SUR3+14 

GEN55410 


SUR4=SUR4+14 

GEN55420 



SUR5=SUR5+13 

GEN55430 

— 

SUR6=SUR6+15 

GEN55440 


VO LUME = VO LUME + 1 

GEN55450 

~ 


GEN55460 

“ 

IF ( I . NE . IVOLC ( I + 1 ) - 1 ) THEN 

GEN5547 0 

W 


GEN5548 0 


WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 

GEN55490 


WRITE (12, 890) SUR1, SUR2, SUR3, SUR4, SUR5, SUR6 

GEN55500 



GEN55510 


ENDIF 

GEN5552 0 

— 


GEN55530 


ENDIF 

GEN55540 



GEN55550 


ELSE IF(RIBTYP(I) .EQ.2) THEN 

GEN55560 

GEN55570 

i:; - 

IF (I .EQ. NUMBER) GO TO 900 

GEN55580 



GEN555 90 


SUR1=SUR1+14 

GEN55600 


SUR2=SUR2+1 4 

GEN55610 

Is & 

SUR3=SUR3+15 

GENS 5 620 

SUR4=SUR4+13 

GEN55630 

— 

SUR5=SUR5+12 

GEN55640 


SUR6=SUR6+14 

GEN55650 

— 

VOLUME=VOLUME+l 

GEN55660 


WRITE (12,885) VOLUME, COLOR,DASH, GRADE, NUMB 

GEN55670 

; — : 

WRITE (12, 890) SUR1, SUR2 , SUR3, SUR4, SUR5, SUR6 

GEN55680 


is 


r 
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GEN55690 



ENDIF 

GEN55700 

— 



GENS 57 10 



900 CONTINUE 

GENS 5 720 




GEN55730 



NVRC= VOLUME 

GEN557 40 



WRITE (NO, *) r NUMBER OF VOLUMES IN RC SEGMENTS * ',NVRC-14 

GEN55750 




GENS 57 60 


C 

************************************************************* 

GEN55770 


C 

* * 

GEN55780 


c 

* BEGIN GENERATION OF THE VOLUMES OF THE * 

GEN55790 


c 

* EXHAUST PORT IN UNIVERSAL FORMAT * 

GEN55800 


c 

* * 

GEN558 10 


c 

************************************************************* 

GENS 5 82 0 




GEN55830 



IF (IEPQUE.EQ.l) THEN 

GEN55840 

- “ 



GEN55850 



DO 915 JJ=1 , IEND-1 

GEN558 60 




GEN55870 



SUR1=TEMPSU+1 

GEN55880 



SUR2=TEMPSU+21 

GEN55890 



SUR3=TEMPSU+46 

GEN55900 

_ _ 


SUR4=TEMPSU+35 

GEN55910 

i 3 


SUR5=TEMPSU+47 

GENS 5 920 

w 


SUR6=TEMPSU+1+NSREP ( JJ) 

GEN55930 




GEN55940 

— 


IF ( (JJ.EQ.3) .OR. (JJ.EQ. 4) ) THEN 

GEN55950 




GEN55960 

— ■ 


SUR2=SUR2-8 

GEN5597 0 



SUR3=SUR3-8 

GEN55980 



SUR4=SUR4-8 

GEN55990 



SUR5=sdfe5-8 

GENS 60 00 



\ 

GENS 60 10 



ENDIF 

GEN56020 




GENS 6030 



VOLUME=VOLUME+l 

GEN56040 



WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 

GEN56050 



WRITE (12, 890) SUR1, SUR2, SUR3, SUR4, SUR5,SUR6 

GEN56060 




GEN5607 0 

p 


DO 905 J=l, 19 

GEN56080 




GEN560 90 

i a 


SUR1=SUR1+1 

GEN561 00 



SUR2=SUR2+1 

GENS 61 10 



SUR3=SUR3+1 

GENS 6 120 



SUR4=SUR4+1 

GENS 6130 



SUR5=SUR5+1 

GEN56140 



SUR6=SUR6+1 

GENS 6 150 



VOLUME=VOLUME+l 

GENS 61 60 

— - 


WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 

GENS 6 170 

^ . 


WRITE (12, 890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

GENS 6180 




GENS 6 190 



IF (J.EQ.9) SUR5=SUR5-24 

GENS 62 00 




GEN5621 0 



IF (J.EQ.10) THEN 

GENS 6220 




GENS 6230 



SUR3=SUR3-24 

GEN562 40 

= ; 


SUR4=SUR4-12 

GEN56250 

w 


SUR5=SUR5+12 

GEN56260 



ENDIF 

GENS 627 0 

— 



GEN5628 0 



IF( ( (JJ.EQ. 2) .OR. (JJ.EQ.3) .OR. (JJ.EQ. 4) ) .AND. (J.EQ. 11) ) GOTO 910 

GENS 62 90 




GENS 6300 



IF (J.EQ. 11) THEN 

GEN56310 




GENS 6 320 
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905 

910 

915 


920 


SUR2=SUR2+3 

SUR3«SUR3+23 

SUR4=SUR4+32 

SUR5=SUR5+11 


ENDIF 


IF (J.EQ.15) THEN 

SUR2=SUR2+2 

SUR3=SUR3+1 

SUR5=SUR5+1 


ENDIF 


CONTINUE 

TEMPSU=TEMPSU+NSREP ( JJ) 

CONTINUE 

NIMVEP=VOLUME+l 

SUR1=TEMSU1+1 
SUR2=TEMSU1+13 
SUR3=TEMSUl+2 5 
SUR4=TEMSU1+17 
SUR5=TEMSUl+2 6 
SUR6=TEMSUl+40 
VOLUME=VOLUME + 1 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 
WRITE (12,890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

DO 920 J-1,11 

SUR1=SUR1+1 

SUR2=SUR2+1 

SUR3=SUR3+1 

SUR4=SUR4+1 

SUR5=SUR5+1 

SUR6=SUR6+1 

VOLUME=VOLUME+l 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 
WRITE (12,890) SURl , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

IF (J.EQ.3) SUR3=SUR3+1 
IF (J.EQ.3) SUR5=SUR5+1 

IF (J.EQ.7) THEN 

SUR2=TEMSU+65 

SUR3=SUR3+1 

SUR4=SUR4-12 

SUR5=SUR5+1 


ENDIF 

IF (J.EQ.8) SUR2=SUR2-33 

IF (J.EQ.10) SUR2=SUR2+2 1 


CONTINUE 


GEN56330 
GEN56340 
GEN56350 
GEN56360 
GEN56370 
GEN56380 
GEN56390 
GEN56400 
GEN56410 
GEN56420 
GEN56430 
GEN56440 
GEN56450 
GEN56460 
GEN56470 
GEN56480 
GEN56490 
GEN56500 
GEN56510 
GEN56520 
GEN56530 
GEN56540 
GEN56550 
GEN56560 
GEN56570 
GEN56580 
GEN56590 
GEN56600 
GEN56610 
GENS 6 620 
GEN56630 
GEN56640 
GEN56650 
GEN56660 
GEN56670 
GENS 6680 
GEN56690 
GENS 67 00 
GEN56710 
GEN56720 
GENS 67 30 
GEN56740 
GEN56750 
GENS 67 60 
GEN56770 
GEN56780 
GEN56790 
GENS 6800 
GEN56810 
GEN56820 
GEN56830 
GENS 6 8 40 
GENS 6850 
GENS 68 60 
GEN56870 
GEN56880 
GEN56890 
GEN56900 
GEN56910 
GEN56920 
GEN56930 
GEN56940 
GEN56950 
GEN56960 


ENDIF 
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C 

C 

c 

c 

c 

c 


NVEP=VOLUME-NVRC 

WRITE (NO, * ) 'NUMBER OF VOLUMES IN EXHAUST PORT - ',NVEP 

************************************************************* 
* * 

* BEGIN GENERATION OF THE VOLUMES OF THE * 

* INTAKE PORT IN UNIVERSAL FORMAT * 

* * 
************************************************************* 


IF (IIPQUE.EQ.l) THEN 

DO 935 JJ=1, IEND-1 

SUR1=NSEP+1 

SUR2=NSEP+25 

SUR3=NSEP+52 

SUR4=NSEP+39 

SUR5=NSEP+53 

SUR6=NSEP+1+NSRIP ( JJ) 

IF ( (JJ.EQ.3) .OR. (JJ.EQ.4) ) THEN 

SUR2=SUR2-10 

SUR3=SUR3-10 

SUR4=SUR4-10 

SUR5=SUR5-10 


END IF 

VOLUME =VO LUME+ 1 

WRITE (12, 885) VOLUME, COLOR,DASH, GRADE, NUMB 
WRITE (12,890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

DO 925 J=l, 21 

IF (J.EQ.l) THEN 

NUMB=5 

SUR1=SUR1+1 

SUR3=SUR3+1 

SUR4=SUR4+1 

SUR5=SUR5+1 

SUR6=SUR6+1 

VOLUME=VOLUME + 1 

WRITE (12,885) VOLUME , COLOR, DASH , GRADE , NUMB 
WRITE (12,890) SUR1, SUR3 , SUR4 , SUR5 , SUR6 
NUMB=6 

ENDIF 

SUR1=SUR1+1 

SUR2=SUR2+1 

SUR3=SUR3+1 

SUR4=SUR4+1 

SUR5=SUR5+1 

SUR6=SUR6+1 

VOLUME=VOLUME+l 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 
WRITE (12, 890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

IF (J.EQ.10) THEN 


GEN56970 

GEN56980 

GEN56990 

GEN57000 

GEN57010 

GEN57020 

GEN57030 

GEN57040 

GEN57050 

GEN57060 

GEN57070 

GEN57080 

GEN57090 

GEN57100 

GEN57110 

GEN57120 

GEN57130 

GEN57140 

GEN57150 

GEN57160 

GEN57170 

GEN57180 

GEN57190 

GEN57200 

GEN57210 

GEN57220 

GEN57230 

GEN57240 

GEN57250 

GEN57260 

GEN57270 

GEN57280 

GEN57290 

GEN57300 

GEN57310 

GEN57320 

GEN57330 

GEN57340 

GEN57350 

GEN57360 

GEN57370 

GEN57380 

GEN57390 

GEN57400 

GEN57410 

GEN57420 

GEN57430 

GEN57440 

GEN57450 

GEN57460 

GEN57470 

GEN57480 

GEN57490 

GEN57500 

GEN57510 

GEN57520 

GEN57530 

GEN57540 

GEN57550 

GEN57560 

GEN57570 

GEN57580 

GEN57590 

GEN57600 
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NUMB=5 

GEN57610 


SUR1=SUR1+1 

GEN57620 


SUR3-SUR3+1 

GEN57630 


SUR4-SUR4+1 

GEN57640 


SUR5-SUR5-27 

GEN57650 


SUR6-SUR6+1 

GEN57660 


VOLUME=VOLUME+l 

GEN57670 


WRITE (12,885) VOLUME, COLOR, DASH, GRADE, NUMB 

GEN57680 


WRITE (12,890) SUR1 , SUR3 , SUR4 , SUR5 , SUR6 

GEN57690 


NUMB=6 

GEN57700 
GEN577 10 


SUR3=SUR3-28 

GEN57720 


SUR4=SUR4-14 

GEN57730 


SUR5=SUR5+14 

GEN57740 

GEN57750 


ENDIF 

GEN57760 

GEN57770 


IF( ( (JJ.EQ.2) .OR. (JJ.EQ.3) .OR. (JJ.EQ.4) ) .AND. (J.EQ.ll) ) GO TO 

930 GEN57780 
GEN57790 


IF (J.EQ.ll) THEN 

GEN57800 


- 

GEN57810 


SUR2=SUR2+3 

GEN57820 


SUR3=SUR3+27 

GEN57830 


SUR4=SUR4+38 

GEN57840 


SUR5=SUR5+13 

GEN57850 


ENDIF 

GEN57860 



GEN57870 


IF (J.EQ.16) THEN 

GEN57880 



GEN57890 


SUR2=SUR2+2 

GEN57900 


SUR3=SUR3+1 

GEN57910 


SUR5=SUR5+1 

GEN57920 

GEN57930 


ENDIF 

GEN57940 

GEN57950 

925 

CONTINUE 

GEN57960 

GEN57970 

930 

NSEP=NSEP+NSRIP ( JJ) 

GEN57980 

GEN57990 

935 

CONTINUE 

GEN58000 

GEN58010 


NSEP=NSEPX 

GEN58020 


NIMVIP=VOLUME+l 

GEN58030 

GEN58040 


SUR1=NSIP1+1 

GEN58050 


SUR2=NSIP1+13 

GEN58060 


SUR3=NSIPl+25 

GEN58070 


SUR4=NSEP+71 

GEN58080 


SUR5=NSIPl+26 

GEM58090 


SUR6=NSIPl+40 

GEN58100 


VOLUME=VOLUME+l 

GEN58110 


WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 

GEN58120 


WRITE (12,890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

GEN58130 

GEN58140 


SUR1=SUR1+1 

GEN58150 


SUR2=SUR2+1 

GEN58160 


SUR3=SUR3+1 

GEN58170 


SUR4=SUR4-25 

GEN58180 


SUR5=SUR5+1 

GEN58190 


SUR6=SUR6+1 

GEN58200 


VOLUME=VOLUME+ 1 

GEN58210 


WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 

GEN58220 


WRITE (12, 890) SUR1, SUR2, SUR3, SUR4,SUR5, SUR6 

GEN58230 

GEN58240 


v 
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940 


SUR4=SUR4-2 

DO 940 J=l,10 

SUR1=SUR1+1 

SUR2-SUR2+1 

SUR3=SUR3+1 

SUR4-SUR4+1 

SUR5=SUR5+1 

SUR6=SUR6+1 

V0LUME=V0LUME+1 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 
WRITE (12,890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

IF (J.EQ.l) SUR4=SUR4+24 

IF (J.EQ.2) SUR3=SUR3+1 
IF (J.EQ.2) SUR4=NSIP1+12 
IF (J.EQ.2) SUR5=SUR5+1 

IF (J.EQ.6) SUR3=SUR3+1 
IF (J.EQ.6) SUR5=SUR5+1 

CONTINUE 

NSIP1=NSIP1+51 

DO 950 JJ=5,IEND-1 

SUR1=NSIP1+1 

SUR2=NSIP1+13 

SUR3=NSIPl+25 

SUR4=NSIP2 (JJ-1) +71 

SUR5=NSIPl+26 

SUR6=NSIPl+40 

VOLUME= VO LUME + 1 

WRITE (12, 885) VOLUME , COLOR, DASH , GRADE , NUMB 
WRITE (12,890) SURl , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

SUR1=SUR1+1 

SUR2=SUR2+1 

SUR3=SUR3+1 

SUR4=SUR4-25 

SUR5=SUR5+1 

SUR6=SUR6+1 

VOLUME=VOLUME+l 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 
WRITE (12, 890) SURl, SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

SUR4=SUR4-2 

DO 945 J=l,10 

SUR1=SUR1+1 
SUR2=SUR2+1 
SUR3=SUR3+1 
SUR4=SUR4+1 
SUR5=SUR5+1 
SUR6=SUR6+1 
VOLUME=VOLUME + 1 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 
WRITE (12, 890) SURl , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

IF (J.EQ.l) SUR4=SUR4+24 


GEN58250 
GEN58260 
GEN58270 
GEN58280 
GEN58290 
GEN58300 
GEN58310 
GEN58320 
GEN58330 
GEN58340 
GEN58350 
GEN58360 
GEN58370 
GEN58380 
GEN58390 
GEN58400 
GEN58410 
GEN58420 
GEN58430 
GEN58440 
GEN58450 
GEN58460 
GEN58470 
GEN58480 
GEN58490 
GEN58500 
GEN58510 
GEN58520 
GEN58530 
GEN58540 
GEN58550 
GEN58560 
GEN58570 
GEN58580 
GEN58590 
GEN58600 
GEN58610 
GEN58620 
GEN58630 
GEN58640 
GEN58650 
GEN58660 
GEN58670 
GEN58680 
GEN58690 
GEN58700 
GEN58710 
GEN58720 
GEN58730 
GEN58740 
GEN58750 
GEN587 60 
GEN58770 
GEN58780 
GEN587 90 
GEN58800 
GEN58810 
GEN58820 
GEN58830 
GEN58840 
GEN58850 
GEN58860 
GEN58870 
GEN58880 


F 
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IF (J.EQ.2) SUR3=SUR3+1 
IF (J.EQ.2) SUR4=NSIP1+12 
IF (J.EQ.2) SUR5=SUR5+1 

IF (J.EQ.6) SUR3=SUR3+1 
IF (J.EQ.6) SUR5=SUR5+1 

945 CONTINUE 

NSIP1=NSIP1+NSIP3 (JJ) 

NSIP2 (JJ) =NSIP2 ( JJ-1 ) +NSRIP (JJ) 

950 CONTINUE 


END IF 

NVIP= VOLUME -NVRC-NVEP 

WRITE (NO, *) ' NUMBER OF VOLUMES IN INTAKE PORT - ' , NVIP 

Q ************************************************************* 

C * * 

C * BEGIN GENERATION OF THE VOLUMES OF THE * 

C * SPARK PLUG IN UNIVERSAL FORMAT * 

C * * 

n ************************************************************* 


DO 965 JJJ=1,ISP 

NIVSP2=VOLUME+l 

DO 960 JJ=1 , IEND-1 

SUR1=NSRTL+1 
SUR2=NSRTL+21 
SUR3=NSRTL+5 6 
SUR4=NSRTL+31 
SUR5=NSRTL+57 
SUR6=NSRTL+1+NSRSP ( JJ) 

VOLUME=VOLUME+l 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 
WRITE (12, 890) SUR1, SUR2 , SUR3, SUR4, SUR5,SUR6 


DO 955 J=l, 19 

SUR1=SUR1+1 
SUR2=SUR2+1 
SUR3=SUR3+1 
SUR4=SUR4+1 
SUR5=SUR5+1 
SUR6=SUR6+1 
VO LUME = VO LUME + 1 

WRITE (12, 885) VOLUME, COLOR, DASH, GRADE, NUMB 
WRITE (12,890) SUR1 , SUR2 , SUR3 , SUR4 , SUR5 , SUR6 

IF (J.EQ.5) SUR5=SUR5-34 

IF (J.EQ.6) THEN 

SUR3=SUR3-34 
SUR4=SUR4-8 
SUR5=SUR5+2 6 


GEN588 90 
GEN58900 
GEN58910 
GEN58920 
GEN58930 
GEN58940 
GEN58950 
GEN58960 
GEN58970 
GEN58980 
GEN58990 
GEN59000 
GEN590 10 
GEN59020 
GEN59030 
GEN59040 
GEN59050 
GEN59060 
GEN59070 
GEN59080 
GEN59090 
GEN59100 
GEN59110 
GEN59120 
GEN59130 
GEN59140 
GEN59150 
GEN59160 
GEN59170 
GEN59180 
GEN59190 
GEN59200 
GEN59210 
GEN59220 
GEN59230 
GEN59240 
GEN59250 
GEN59260 
GEN59270 
GEN59280 
GEN592 90 
GEN59300 
GEN59310 
GEN59320 
GEN59330 
GEN59340 
GEN59350 
GEN59360 
GEN59370 
GEN59380 
GEN59390 
GEN59400 
GEN59410 
GEN59420 
GEN59430 
GEN59440 
GEN59450 
GEN59460 
GEN59470 
GEN59480 
GENS 94 90 
GEN59500 
GEN59510 
GEN59520 
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j4 


955 


960 


965 


970 


ENDIF 

IF (J.EQ.7) THEN 

SUR2=SUR2+1 

SUR3=SUR3+33 

SUR4=SUR4+7 

SUR5=SUR5+7 

ENDIF 

IF (J.EQ.14) SUR5=SUR5-8 

IF (J.EQ.15) THEN 

SUR2=SUR2+2 

SUR3=SUR3-25 

SUR4=SUR4+6 

SUR5=SUR5-17 

ENDIF 


IF (J.EQ.17) THEN 

SUR2=SUR2+2 

SUR3=SUR3+1 

SUR5=SUR5+1 

ENDIF 

CONTINUE 

NSRTL=NSRTL+NSRSP ( JJ) 

CONTINUE 

IF (JJ.EQ.IEND) NSRTL=NSRTL+NSRSP (IEND) 

CONTINUE 

IVSP=VOLUME-NVRC-NVEP-NVIP 

flRITE (NO, * ) 'NUMBER OF VOLUMES IN SPARK PLUG(S) 
WRITE (12, 245) 

WRITE (NO, * ) 'TOTAL NUMBER OF VOLUMES = ', VOLUME-14 
WRITE (NO, *) ' ' 

WRITE (NO,*) ' ' 


IRITE (NO, *) 


, 'VOLUME LABELS OF RC SEGMENTS 
TRITE (NO, *)' VOLUME LBLS OF EXHST PORT ARE 
IRITE (NO, *) 'VOLUME LBLS OF INTKE PORT ARE 
hNVRC+NVEP 

IRITE (NO, *)' VOLUME LBLS OF SPRK PLUGS ARE 
, NVSP+NVRC+NVEP+NVIP 
IRITE (NO, *) ' ' 

IRITE (NO,*) ' 


NVRC+1 , NIMVEP , NVRC+NVEP+1 , NIMVIP 


IRITE (13, 970) 

’ORMAT (414) 

IRITE (13, 970) NVRC+NVEP+NVIP+1,NIVSP2, NVSP+NVRC+NVEP+NVIP, IEND 

IRITE (13,*) TCHNL,CCC, ISRCT, ISP 

;lose (13) 


GEN59530 
GENS 95 40 
GEN59550 
GEN59560 
GEN59570 
GEN59580 
GEN59590 
GEN59600 
GEN59610 
GEN59620 
GEN59630 
GEN59640 
GEN59650 
GEN59660 
GEN59670 
GEN59680 
GEN59690 
GEN59700 
GEN59710 
GEN59720 
GEN59730 
GEN59740 
GEN59750 
GEN59760 
GEN59770 
GEN59780 
GEN59790 
GEN59800 
GEN59810 
GEN59820 
GEN59830 
GEN59840 
GEN59850 
GEN59860 
GEN59870 
GENS 9 8 80 
GEN59890 
GEN59900 
GEN59910 
GEN59920 
GEN59930 
GENS 9 9 40 
GENS 9 950 
GEN59960 
GEN59970 
GEN59980 
GEN59990 
GEN60000 
GEN60010 

ARE 1 TO' , NVRCGEN60020 

', NVRC+1, 'TO' ,NVEP+NVRC GEN60030 
' ' NVRC+NVEP+1, ' TO' , NVIP GEN60040 
' GEN60050 

GEN60060 
GEN 60070 
GEN60080 
GEN60090 
GEN60100 
GEN60110 
GEN60120 
GEN 60130 
GEN 60140 
GEN60150 
GEN60160 


’ ,NVSP 


, NVRC+NVEP+NVIP + 1 , 'TO' 
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WRITE (NO, 975) 

975 FORMAT ('O', 'ALL GEOMETRIC ENTITIES (POINTS THROUGH VOLUMES)') 
WRITE (NO, 980) 

980 FORMAT (' 0 ',' HAVE BEEN GENERATED. THE PROGRAM CAN BE EXITED AT') 
WRITE (NO, 985) 

985 FORMAT (' 0' , 'THIS POINT IF MANUAL ELEMENT GENERATION IS DESIRED.') 
WRITE (NO, 990) 

990 FORMAT (' 0 ',' ENTER A ...') 


995 

WRITE (NO, 995) 
FORMAT ( ' 0 ' , ' 

1 

TO 

CONTINUE 

MODEL 

GENERATION OR . . . ' ) 

999 

WRITE (NO, 999) 
FORMAT ( ' 0 ' , ' 

2 

TO 

STOP 

MODEL 

GENERATION.' ) 


READ (5,*) ICONTI 

IF (STATUS. NE.0) WRITE (8,*) ICONTI 
WRITE (NO, *) ICONTI 

IF ( ICONTI. EQ. 2) THEN 

PRINT*, ' ' 

PRINT*, ' THE UNIVERSAL HAS BEEN CREATED.' 

PRINT*, ' ' 

PRINT*, ' BEFORE THE UNIVERSAL FILE CAN BE READ,' 

PRINT*, ' THE USER MUST ENTER THE SDRC SOFTWARE.' 


PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 


NOTE THAT A FILE CALLED "MODEL DATA" CAN NOT' 

EXIST ON YOUR DISK. IF IT DOES, AN ERROR WILL' 
RESULT WHEN YOU ENTER THE SDRC SOFTWARE. TO' 
CORRECT THE ERROR, CHANGE THE NAME OF THE' 

"MODEL DATA" FILE THAT EXISTS ON YOUR DISK' 

TO A DIFFERENT NAME.' 

t 

AFTER ENTERING THE SDRC SOFTWARE IN THE PROGRAM MODE, ' 
RESPOND "R" (FOR RUN) TO THE FIRST QUESTION, ' 
RESPOND "GO" TO THE SECOND QUESTION AND' 

IN RESPONSE TO THE THIRD QUESTION,' 

ENTER THE TERMINAL TYPE THAT YOU ARE USING.' 


CALL GO (ICONTI) 


STOP 
END IF 


RETURN 

END 


SUBROUTINE MNE (NO) 

DIMENSION PHIONE (50) , PHITWO ( 0 : 50 ) , JJJ(50) , JJJC(50) , JJJR(50) , 
# IRIB (50) , JJJSC ( 50 ) ,NUMES (20 ) , JSUR (20) 

CHARACTER *10 NOAL, SLASH, GENERL, YES 

NOAL='4 -1NOAL' 

SLASH='l -1/' 

GENERL='10 -1' 

YES='3 -1YES' 

Q ******************************************* ****************** 

C * * 

C * READ VALUES THAT WERE CALCULATED IN THE MAIN PROGRAM * 
C * * 

p ************************************************************* 


GEN60170 
GEN60180 
GEN60190 
GEN60200 
GEN60210 
GEN60220 
GEN60230 
GEN 602 40 
GEN 60250 
GEN60260 
GEN60270 
GEN60280 
GEN60290 
GEN60300 
GEN 60310 
GEN60320 
GEN60330 
GEN 60340 
GEN60350 
GEN 60360 
GEN60370 
GEN60380 
GEN60390 
GEN60400 
GEN60410 
GEN 60420 
GEN60430 
GEN 60440 
GEN 60450 
GEN60460 
GEN 60470 
GEN60480 
GEN60490 
GEN60500 
GEN60510 
GEN60520 
GEN60530 
GEN60540 
GEN60550 
GEN60560 
GEN60570 
GEN 60580 
GEN 60590 
GEN60600 
GEN60610 
GEN60620 
GEN60630 
GEN 60640 
GEN60650 
GEN 60 660 
GEN60670 
GEN 60 680 
GEN60690 
GEN60700 
GEN60710 
GEN60720 
GEN60730 
GEN60740 
GEN60750 
GEN607 60 
GEN60770 
GEN60780 
GEN 60790 
GEN60800 
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OPEN (13) 

OPEN (20) 

READ (20,*) NUMBER 
READ (13, *) PI, R, TRANS 

DO 15 J-l, NUMBER 

READ (13,*) JJJ(J) 

READ (13, 5) PHIONE ( J) , PHITWO ( J) 

5 FORMAT (F13 . 5, 5X, F13 . 5) 

READ (13,*) IRIB(J) 

READ (13, 10 ) JJJC (J) , JJJR(J) 

10 FORMAT (F13.5,5X,F13.5) 

15 CONTINUE 

READ (13,*) NIVEP, NIMVEP , NIVIP, NIMVIP 

READ (13,*) NIVSP1,NIVSP2,NFVSP, IEND 

READ (13,*) TCHNL, CCC, NSTCN, ISP 

ISUR=1 

MN=0 

NTW=2 

DO 20 111=1 , NSTCN+1 

READ (20, * ) JJJSC(III) , JSUR(III) 

20 CONTINUE 

Q ************************************************************* 

C * * 

c * END READ * 

C * * 

c ************************************************************* 


IF (CCC. GT. 0.0) THEN 


1=1 

ISTOP=6 

IST0P1=36 

ISTOP2=12 

ISTOP3=14 


ELSE 


1=2 

ISTOP=4 

IST0P1=24 

ISTOP2=10 

ISTOP3=ll 


END IF 


C 

C 

C 

c 

c 


***************** ******************************************** 
* * 

* SET ELEMENT TYPE FOR GENERATION OF THICK SHELLS * 

* * 
************************************************************* 


PHITWO (0 ) =ATAN( (TRANS -TCHNL) /R) 
WRITE (15, 25) GENERL 


GEN 60810 
GEN60820 
GEN60830 
GEN60840 
GEN60850 
GEN 608 60 
GEN60870 
GEN60880 
GEN 608 90 
GEN60900 
GEN60910 
GEN60920 
GEN60930 
GEN60940 
GEN60950 
GEN60960 
GEN60970 
GEN 60980 
GEN60990 
GEN 61000 
GEN61010 
GEN61020 
GEN 61030 
GEN61040 
GEN61050 
GEN61060 
GEN 61070 
GEN61080 
GEN61090 
GEN61100 
GEN61110 
GEN61120 
GEN61130 
GEN61140 
GEN61150 
GEN61160 
GEN61170 
GEN61180 
GEN 61190 
GEN61200 
GEN61210 
GEN61220 
GEN61230 
GEN61240 
GEN61250 
GEN61260 
GEN61270 
GEN61280 
GEN61290 
GEN61300 
GEN61310 
GEN61320 
GEN61330 
GEN61340 
GEN61350 
GEN61360 
GEN61370 
GEN61380 
GEN61390 
GEN61400 
GEN61410 
GEN61420 
GEN61430 
GEN61440 
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25 

FORMAT ( IX, A5, ' AU' ) 

GEN61450 

GEN61460 


WRITE (15, 30) SLASH 

GEN 61470 

30 

FORMAT (2X, A5) 

GEN 61480 
GEN61490 


WRITE (15, 35) GENERL 

GEN61500 

35 

FORMAT ( IX, A5, 'T' ) 

GEN61510 

GEN61520 


WRITE (15, 40) GENERL 

GEN61530 

40 

FORMAT (IX, A5, 'MA' ) 

GEN61540 

GEN61550 


WRITE (15, 42) GENERL 

GEN61560 

42 

FORMAT (IX, A5, 'EL' ) 

GEN61570 
GEN 61580 


WRITE (15, 44) GENERL 

GEN61590 

44 

FORMAT ( IX, A5,'DEF') 

GEN61600 

GEN61610 


WRITE (15, 46) GENERL 

GEN61620 

46 

FORMAT (IX, A5, ' TY' ) 

GEN61630 
GEN 61640 


WRITE (15, 48) GENERL 

GEN61650 

48 

FORMAT ( IX, A5, ' TK r ) 

GEN61660 

GEN61670 


WRITE (15, 50) GENERL 

GEN61680 

50 

FORMAT (IX, A5, 'PB' ) 

GEN61690 

GEN61700 


WRITE (15, 52) SLASH 

GEN61710 

52 

FORMAT (2 X, A5) 

GEN61720 

GEN61730 


WRITE (15, 54) GENERL 

GEN 61740 

54 

FORMAT ( IX, A5 , ' MD r ) 

GEN 61750 
GEN 61760 


WRITE (15, 56) GENERL 

GEN 61770 

56 

FORMAT ( IX, A5, ' CR' ) 

GEN61780 

GEN61790 


WRITE (15,58) 

GEN61800 

58 

FORMAT (2X, '4 27 K' ) 

GEN61810 

GEN61820 


DO 195 J=l, NUMBER 

GEN61830 

GEN61840 


DO 190 JJ=1, ISTOP 

GEN 61850 
GEN 61860 

c 

************************************************************* 

GEN61870 

c 

* * 

GEN61880 

c 

* CALCUALTE THE LENGTH OF THE RIBS AND CHANNELS * 

GEN61890 

c 

* * 

GEN61900 

c 

************************************************************* 

GEN61910 

GEN61920 


IF ( (JJJ(J-l) .EQ.3) .AND. (JJJ(J) .EQ.2) ) THEN 

GEN61930 

GEN61940 


IF ( (JJ.LT . 4) . AND . (CCC.GT. 0 . 0) ) THEN 

GEN61950 

GEN61960 


PHIT=PHITWO ( J) *PI/180 . 0 

GEN61970 


Y=R*SIN (PHIT) +TRANS 

GEN61980 


PHI=ABS (ABS (Y) -ABS (PHIONE ( J) ) ) 

GEN61990 

GEN62000 


ELSE IF ( (JJ.GT. 3) .AND. (CCC.GT. 0.0) ) THEN 

GEN62010 

GEN62020 


PHI=ABS (ABS (PHIONE ( J) ) -ABS (PHITWO ( J) ) ) 

GEN62030 

GEN62040 


ENDIF 

GEN62050 

GEN62060 


IF ( (JJ.LT. 3) .AND. (CCC.EQ.C .0) ) THEN 

GEN62070 

GEN62080 
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PHIT=PHITWO { J) *PI/180 . 0 

Y=R*SIN (PHIT) +TRANS 

PHI=ABS (ABS (Y) -ABS (PHIONE (J) ) ) 

ELSE IF ( (JJ.GT.2) .AND. (CCC.EQ.0.0) ) THEN 

PHI=ABS (ABS (PHIONE ( J) ) -ABS (PHITWO ( J) ) ) 

ENDIF 

ELSE IF ( (JJJ(J) .EQ.3) .AND. (JJJ(J-l) .EQ.2) ) THEN 

IF ((JJ.LT.4) .AND. (CCC.GT.O .0) ) THEN 

PHIT=PHIONE (J) *PI/180 .0 

Y=R*SIN (PHIT) +TRANS 

PHI=ABS (ABS (Y) -ABS (PHITWO (J-l) ) ) 

ELSE IF ( (JJ.GT. 3) .AND. (CCC.GT.O. 0) ) THEN 

PHI=ABS (PHITWO (J) -PHIONE ( J) ) 

ENDIF 

IF ( (JJ.LT. 3) .AND. (CCC.EQ.0.0) ) THEN 

PHIT=PHIONE ( J) *PI/180 . 0 

Y=R*SIN (PHIT) +TRANS 

PHI=ABS (ABS (Y) -ABS (PHITWO (J-l) ) ) 

ELSE IF ( (JJ.GT.2) .AND. (CCC.EQ.0.0) ) THEN 

• PHI=ABS (PHITWO (J) -PHIONE (J) ) 

ENDIF 

ELSE IF (JJJ(J) .EQ.2) THEN 

IF ( (JJ.LT.4) .AND. (CCC.GT.O. 0) ) THEN 

PHI=ABS (ABS (PHIONE ( J) ) -ABS (PHITWO (J-l) ) ) 
ELSE IF ( (JJ.GT. 3) .AND. (CCC.GT.O. 0) ) THEN 

PHI=ABS (ABS (PHIONE ( J) ) -ABS (PHITWO ( J) ) ) 

ENDIF 

IF ( (JJ.LT. 3) .AND. (CCC.EQ.0.0) ) THEN 

PHI=ABS (ABS (PHIONE (J) ) -ABS (PHITWO (J-l) ) ) 
ELSE IF ( (JJ.GT.2) .AND. (CCC.EQ.0.0) ) THEN 

PHI=ABS (ABS (PHIONE ( J) ) -ABS (PHITWO ( J) ) ) 

ENDIF 

ELSE IF ( (JJJ(J) .EQ.l) .OR. (JJJ(J) .EQ.3) ) THEN 
IF ( (JJ.LT.4) .AND. (CCC.GT.O. 0) ) THEN 
PHI=ABS (PHIONE (J) -PHITWO (J-l) ) 


GEN62090 

GEN62100 

GEN62110 

GEN62120 

GEN62130 

GEN62140 

GEN62150 

GEN62160 

GEN62170 

GEN62180 

GEN62190 

GEN62200 

GEN62210 

GEN62220 

GEN62230 

GEN62240 

GEN62250 

GEN62260 

GEN62270 

GEN62280 

GEN62290 

GEN62300 

GEN62310 

GEN62320 

GEN62330 

GEN62340 

GEN62350 

GEN62360 

GEN62370 

GEN62380 

GEN62390 

GEN62400 

GEN62410 

GEN62420 

GEN62430 

GEN62440 

GEN62450 

GEN62460 

GEN62470 

GEN62480 

GEN62490 

GEN62500 

GEN62510 

GEN62520 

GEN62530 

GEN62540 

GEN62550 

GEN62560 

GEN62570 

GEN62580 

GEN62590 

GEN62600 

GEN62610 

GEN62620 

GEN62630 

GEN62640 

GEN62650 

GEN62660 

GEN62670 

GEN62680 

GEN62690 

GEN62700 

GEN62710 

GEN62720 
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ELSE IF ( (JJ.GT.3) .AND. (CCC.GT.O .0) ) THEN 
PHI— ABS (PHITWO ( J) — PHIONE { J) ) 

ENDIF 

IF ( (JJ.LT. 3) .AND. (CCC.EQ.0.0) ) THEN 
PHI-ABS (PHIONE ( J) -PHITWO ( J-l) ) 

ELSE IF ( (JJ.GT. 2) .AND. (CCC.EQ.0.0) ) THEN 
PHI=ABS (PHITWO ( J) -PHIONE ( J) ) 

ENDIF 


ENDIF 


C 

C 

C 

C 

C 

C 

C 


************************************************************* 
* * 

* SET THE NUMBER OF ELEMENTS ON AN EDGE. * 

* THE NUMBER IS DEPENDENT UPON THE LENGTH OF THE * 

* RIB OR CHANNEL * 

* * 


************************************************************* 
IF (JJJ(J) .EQ.2) THEN 

IF (PHI. GT. 0.80) THEN 
NUMEA=3 

ELSE IF ( (PHI.GT.O .40) .AND. (PHI.LE.0.80) 
NUMEA=2 

ELSE 

NUMEA=2 

ENDIF 

ELSE IF ( (JJJ(J) .EQ.l) .OR. (JJJ(J) .EQ.3) ) THEN 
IF (PHI. GT. 5.0) THEN 
NUMEA=3 

ELSE IF ( (PHI. GT. 3.0) .AND. (PHI. LE. 5.0) ) 
NUMEA=2 

ELSE 

NUMEA=2 

ENDIF 

ENDIF 

IF ( (J.EQ. JSUR(ISUR) ) .AND. (JJ. EQ.l) ) THEN 

NUMES ( ISUR) =NUMEA 
ISUR=ISUR+1 


GEN62730 
GEN62740 
GEN62750 
GEN627 60 
GEN62770 
GEN62780 
GEN62790 
GEN62800 
GEN62810 
GEN62820 
GEN62830 
GEN62840 
GEN62850 
GEN62860 
GEN62870 
GEN62880 
GEN62890 
GEN62900 
GEN62910 
GEN62920 
GEN62930 
GEN62940 
GEN62950 
GEN62960 
GEN62970 
GEN62980 
GEN62990 
GEN63000 
GEN63010 
GEN 63020 
GEN63030 
GEN 63040 
) THENGEN63050 
GEN63060 
GEN63070 
GEN 63080 
GEN630 90 
GEN63100 
GEN63110 
GEN63120 
GEN63130 
GEN63140 
GEN63150 
GEN63160 
GEN63170 
GEN63180 
GEN63190 
GEN63200 
THEN GEN63210 
GEN63220 
GEN63230 
GEN63240 
GEN63250 
GEN63260 
GEN63270 
GEN63280 
GEN63290 
GEN63300 
GEN63310 
GEN63320 
GEN 63330 
GEN63340 
GEN63350 
GEN63360 
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ENDIF 

IF (CCC.GT.0.0) THEN 

" IF( (JJJC(J) .NE.O) .AND. (JJ.LT.4) ) GO TO 190 
IF { ( JJJC ( J) .NE.O) . AND . ( JJ .EQ. 4) ) 1=1+3 

IF ( ( JJJR( J) -NE . 0) . AND . ( JJ.GT . 3) ) GOTO 190 
IF ( ( J .NE . 1) .AND . < JJJR ( J-l) .NE . 0 ) . AND . ( JJ.EQ . 1) ) 1=1+4 

ELSE IF (CCC.EQ.0.0) THEN 

IF( (JJJC ( J) . NE . 0 ) .AND. (JJ.LT.3) ) GO TO 190 
IF ( (JJJC(J) . NE . 0 ) .AND. (JJ.EQ. 3) ) 1=1+3 

IF( (JJJR(J) .NE.O) .AND. (JJ.GT. 2) ) GO TO 190 
IF ( ( J .NE . 1) .AND . (JJJR (J-l) .NE.O) .AND . ( JJ.EQ . 1) ) 1=1+4 


ENDIF 


C 

C 

c 

c 

c 

c 


* 


************************************* 

* 

* BEGIN THE GENERATION OF THE COMMANDS THAT WILL 

* 

* 


CREATE THE MESHES OF THE INNER AND OUTER SHELLS * 

************************************************************* 


IA=I/100 

IB= (I-IA*100) /10 
IC«I-IA*100-IB*10 


IF (J.EQ.l) NUMEA=3 


IF (I A. NE.O) THEN 

WRITE (15, 65) GENERL, IA, IB, IC 
FORMAT (IX, A5, ' V' , 311) 

ELSE IF (IB. NE.O) THEN 

WRITE (15, 70) GENERL, IB, IC 
FORMAT ( IX, A5, 'V' ,211) 

ELSE 


WRITE (15, 75) GENERL, IC 
FORMAT ( IX, A5, ' V' , II) 


ENDIF 


MN=MN+1 


80 


IF (CCC.GT.0.0) THEN 

IF ( (JJ.EQ. 2) .OR. (JJ.EQ. 5) ) GO TO 85 

WRITE (15, 80) GENERL, NUME A 
FORMAT (IX, A5, II) 

IF ( (J.EQ.l) .AND. (JJ.EQ. 2) ) THEN 


GEN63370 

GEN63380 

GEN63390 

GEN63400 

GEN 63410 

GEN63420 

GEN63430 

GEN63440 

GEN 63450 

GEN63460 

GEN63470 

GEN 63480 

GEN63490 

GEN63500 

GEN63510 

GEN63520 

GEN63530 

GEN63540 

GEN 63550 

GEN63560 

GEN63570 

GEN63580 

GEN63590 

GEN63600 

GEN63610 

GEN63620 

GEN63630 

GEN63640 

GEN63650 

GEN63660 

GEN63670 

GEN63680 

GEN63690 

GEN63700 

GEN63710 

GEN63720 

GEN 63730 

GEN63740 

GEN63750 

GEN63760 

GEN63770 

GEN63780 

GEN 637 90 

GEN63800 

GEN63810 

GEN 63820 

GEN63830 

GEN63840 

GEN 63850 

GEN63860 

GEN63870 

GEN63880 

GEN63890 

GEN63900 

GEN63910 

GEN63920 

GEN63930 

GEN63940 

GEN63950 

GEN63960 

GEN63970 

GEN63980 

GEN63990 

GEN64000 


85 
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WRITE (15, 90) GENERL 
FORMAT ( IX, A5,'l') 

END IF 

IF ( (JJJC(J) .NE.O) .AND. (JJ.EQ.5) ) THEN 

WRITE (15, 95) GENERL 
FORMAT ( IX, A5, ' 1' ) 

ENDIF 

IF ( (JJJR(J-l) .NE.O) .AND. (JJ.EQ. 2) ) THEN 

WRITE (15, 100) GENERL 
FORMAT (IX, A5, ' 1' ) 

ENDIF 

WRITE (15, 105) NOAL 
FORMAT (2X, A8) 

IF ( (J.EQ.l) .AND. ( (JJ.EQ.l) .OR. (JJ.EQ.3) ) ) THEN 

WRITE (15, 110) GENERL 
FORMAT (IX, A5, '4') 

WRITE (15, 115) GENERL 
FORMAT (IX, A5, ' 1' ) 

ENDIF 

IF ( (JJJC(J) .NE.O) .AND. ( (JJ.EQ. 4) .OR. (JJ.EQ. 6) ) ) THEN 

IF (J.EQ. NUMBER) GO TO 130 

WRITE (15, 120) GENERL 
FORMAT (IX, A5, ' 4' ) 

WRITE (15, 125) GENERL 
FORMAT (IX, A5, ' 1' ) 

ENDIF 

IF ( ( (JJJR(J-l) .NE.O) .AND . (J.NE. 1) ) .AND. ( (JJ.EQ.l) 

.OR. (JJ.EQ.3) ) ) THEN 

WRITE (15, 135) GENERL 
FORMAT (IX, A5, ' 4' ) 

WRITE (15, 140) GENERL 
FORMAT (IX, A5, ' 1' ) 

ENDIF 

ELSE IF (CCC.EQ.0.0) THEN 
WRITE (15, 145) GENERL, NUMEA 

FORMAT (IX, A5, II) * 

WRITE (15, 150) NOAL 
FORMAT (2X, A8) 


GEN64010 
GEN64020 
GEN64030 
GEN64040 
GEN64050 
GEN640 60 
GEN 64070 
GEN64080 
GEN64090 
GEN64100 
GEN64110 
GEN64120 
GEN64130 
GEN 64140 
GEN64150 
GEN64160 
GEN64170 
GEN64180 
GEN64190 
GEN64200 
GEN64210 
GEN64220 
GEN64230 
GEN64240 
GEN64250 
GEN64260 
GEN64270 
GEN64280 
GEN64290 
GEN64300 
GEN 64310 
GEN64320 
GEN64330 
GEN64340 
GEN64350 
GEN64360 
GEN64370 
GEN64380 
GEN64390 
GEN64400 
GEN64410 
GEN64420 
GEN64430 
GEN64440 
GEN64450 
GEN64460 
GEN64470 
GEN64480 
GEN64490 
GEN64500 
GEN 64510 
GEN64520 
GEN64530 
GEN64540 
GEN64550 
GEN 64560 
GEN64570 
GEN64580 
GEN64590 
GEN64600 
GEN64610 
GEN64620 
GEN64630 
GEN64640 
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155 

160 

165 

170 

175 

180 

185 


190 

195 

200 


IF ( (J.EQ.l) .AND. ( (JJ.EQ.l) .OR. (JJ.EQ.2) ) ) THEN 

WRITE (15, 155) GENERL 
FORMAT (IX, A5, ' 4' ) 

WRITE (15, 160) GENERL 
FORMAT (IX, A5, ' 1 ' ) 


ENDIF 

IF ( (JJJC(J) .NE.O) .AND. ( (JJ.EQ.3) .OR. (JJ.EQ.4) ) ) THEN 

IF (J.EQ. NUMBER) GO TO 175 

WRITE (15, 165) GENERL 
FORMAT (IX, A5, ' 4' ) 

WRITE (15, 170) GENERL 
FORMAT (IX, A5, ' 1' ) 


ENDIF 

IF ( ( (JJJR(J-l) .NE.O) .AND. (J.NE. 1) ) .AND. ( (JJ.EQ.l) 
# .OR. (JJ.EQ.2) ) ) THEN 

WRITE (15, 180) GENERL 
FORMAT (IX, A5, ' 4' ) 

WRITE (15, 185) GENERL 
FORMAT ( IX, A5, ' 1' ) 

ENDIF 

ENDIF 

IF (CCC.GT.0.0) THEN 

IF (JJ.EQ.5) THEN 


1 = 1+2 

ELSE 

1 = 1+1 

ENDIF 

ELSE IF (CCC.EQ.0.0) THEN 
IF (JJ.EQ.l) THEN 
1=1 + 1 

ELSE 

1 = 1+2 

ENDIF 

ENDIF 

CONTINUE 

CONTINUE 

NTKMRC=MN 

WRITE (15,200) 

FORMAT (2X,'0 -1') 


GEN64650 
GEN64660 
GEN64670 
GEN64680 
GEN64690 
GEN64700 
GEN64710 
GEN64720 
GEN64730 
GEN64740 
GEN64750 
GEN647 60 
GEN64770 
GEN64780 
GEN64790 
GEN64800 
GEN 64810 
GEN64820 
GEN64830 
GEN64840 
GEN64850 
GEN64860 
GEN64870 
GEN64880 
GEN64890 
GEN64900 
GEN64910 
GEN64920 
GEN64930 
GEN64940 
GEN64950 
GEN 64960 
GEN64970 
GEN64980 
GEN64990 
GEN65000 
GEN65010 
GEN65020 
GEN65030 
GEN65040 
GEN65050 
GEN65060 
GEN65070 
GEN65080 
GEN65090 
GEN65100 
GEN65110 
GEN65120 
GEN65130 
GEN65140 
GEN65150 
GEN65160 
GEN65170 
GEN65180 
GEN 65190 
GEN65200 
GEN65210 
GEN65220 
GEN65230 
GEN65240 
GEN65250 
GEN65260 
GEN65270 
GEN65280 
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Q A************************************************************ 

C * * 

C * BEGIN THE GENERATION OF THE COMMANDS THAT WILL * 

C * CREATE THE MESHES OF THE EXHAUST PORT * 

C * * 

p ************************************************************* 


WRITE (15, 30) SLASH 
WRITE (15, 35) GENERL 
WRITE (15, 40) GENERL 
WRITE (15, 54) GENERL 
WRITE (15, 56) GENERL 
WRITE (15, 58) 

I=NIVEP 


DO 240 JJ=1,IEND-1 

DO 235 IJJ=1, 20 

IF ( ( (JJ.EQ.2) .OR. (JJ.EQ.3) .OR. (JJ.EQ.4) ) .AND. 
# (IJJ.EQ. 13) ) GO TO 240 

IA=I/100 

IB= (I-IA*100) /10 
IC=I-IA*100-IB*10 

IF (IA.NE.0) THEN 

WRITE (15,205) GENERL, I A, IB, IC 
205 FORMAT ( IX, A5 , ' V , 3 I 1 ) 

ELSE IF (IB.NE.0) THEN 

WRITE (15, 210) GENERL, IB, IC 
210 FORMAT ( IX, A5, ' V' , 211) 

ELSE 

WRITE (15,215) GENERL, IC 
215 FORMAT ( IX, A5, ' V' , II) 


ENDIF 


MN=MN+1 

N=1 

IF (I.EQ.NIVEP) N=3 

IF ( (JJ.EQ.l) .OR. (IJJ.EQ. 1) .OR. (IJJ.EQ. 13) .OR. (IJJ.EQ. 17) ) THEN 


IF ( (JJ.EQ. 6) .AND. ( (IJJ.EQ. 13) .OR. (IJJ.EQ. 17) ) ) GO TO 230 

IF ( (IJJ.EQ. 14) .OR. (IJJ.EQ. 15) .OR. (IJJ.EQ. 16) .OR. 

# (IJJ.EQ. 18) .OR. (IJJ.EQ. 19) .OR. (IJJ.EQ. 20)) GO TO 230 

DO 225 JJJJ=1,N 

WRITE (15, 220) GENERL 
220 FORMAT ( IX, A5, ' 1' ) 

225 CONTINUE 

ENDIF 

230 1=1+1 


GEN65290 
GEN65300 
GEN65310 
GEN65320 
GEN65330 
GEN65340 
GEN65350 
GEN65360 
GEN 6537 0 
GEN 65380 
GEN65390 
GEN65400 
GEN65410 
GEN65420 
GEN65430 
GEN65440 
GEN65450 
GEN65460 
GEN65470 
GEN65480 
GEN65490 
GEN65500 
GEN65510 
GEN65520 
GEN65530 
GEN65540 
GEN65550 
GEN65560 
GEN65570 
GEN65580 
GEN65590 
GEN65600 
GEN65610 
GEN65620 
GEN65630 
GEN65640 
GEN65650 
GEN65660 
GEN65670 
GEN65680 
GEN 65690 
GEN65700 
GEN65710 
GEN65720 
GEN65730 
GEN65740 
GEN65750 
GEN65760 
GEN65770 
GEN65780 
GEN65790 
GEN65800 
GEN65810 
GEN65820 
GEN65830 
GEN65840 
GEN65850 
GEN65860 
GEN65870 
GEN65880 
GEN658 90 
GEN65900 
GEN65910 
GEN65920 
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IF (I.EQ.NIMVEP) GO TO 245 

GEN65930 

GEN65940 

235 

CONTINUE 

GEN65950 

GEN65960 

240 

CONTINUE 

GEN65970 

GEN65980 

C 

INTEMEDIATE EXHAUST *********************************** 

GEN65990 

GEN66000 

245 

DO 280 L=l, 12 

GEN66010 

GEN66020 


IA=I/100 

GEN66030 


IB= (I-IA*100) /10 

GEN66040 


IC=I-IA*100-IB*10 

GEN66050 

GEN66060 


IF (IA.NE.0) THEN 

GEN66070 

GEN66080 


WRITE (15, 250) GENERL, IA, IB, IC 

GEN66090 

250 

FORMAT ( IX, A5, ' V' , 311) 

GEN66100 

GEN66110 


ELSE IF (IB.NE.0) THEN 

GEN66120 

GEN66130 


WRITE (15, 255) GENERL, IB, IC 

GEN66140 

255 

FORMAT ( IX, A5, 'V ,211) 

GEN66150 

GEN66160 


ELSE 

GEN66170 

GEN66180 


WRITE (15, 260) GENERL, IC 

GEN66190 

260 

FORMAT ( IX, A5, ' V' , 11) 

GEN66200 

GEN66210 


ENDIF 

GEN66220 



GEN66230 


MN=MN+1 

GEN66240 

GEN66250 


IF (L.EQ.l) THEN 

GEN66260 

GEN66270 


N=3 

GEN66280 


ELSE 

GEN66290 


II 

£ 

GEN66300 



GEN66310 


ENDIF 

GEN66320 

GEN66330 


IF ( (L.EQ.6) .OR. (L.EQ.7) .OR. (L.EQ.8) . OR . (L . EQ . 10 ) . OR . 

GEN66340 

# 

(L.EQ.ll) .OR. (L.EQ.12) ) GO TO 275 

GEN66350 

GEN66360 


DO 270 JJJJ=1,N 

GEN66370 

GEN66380 


WRITE (15,265) GENERL 

GEN66390 

265 

FORMAT (IX, A5, ' 1' ) 

GEN66400 

GEN66410 

270 

CONTINUE 

GEN66420 

GEN66430 

275 

1=1 + 1 

GEN66440 

GEN66450 

280 

CONTINUE 

GEN66460 

GEN66470 


WRITE (15, 200) 

GEN66480 

GEN66490 


NTKMEX=MN-NTKMRC 

GEN66500 

GEN66510 

c ************************************************************* 

GEN66520 

C * 

* 

GEN66530 

c * 

BEGIN THE GENERATION OF THE COMMANDS THAT WILL * 

GEN66540 

c * 

CREATE THE MESHES OF THE INTAKE PORT * 

GEN66550 

c * 

* 

GEN66560 
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285 

290 

295 


300 

305 

310 

315 

320 


************************************************************* 

WRITE (15, 30) SLASH 
WRITE (15, 35) GENERL 
WRITE (15, 40) GENERL 
WRITE (15, 54) GENERL 
WRITE (15, 56) GENERL 
WRITE (15, 58) 

I=NIVIP 

DO 320 JJ=1, IEND-1 

DO 315 IJJ=1, 24 

IF ( ( (JJ.EQ.2) .OR. (JJ.EQ.3) .OR. (JJ.EQ.4) ) .AND. 
# (IJJ.EQ.15) ) GO TO 320 


IA=I/100 

IB= (I-IA*100) /10 
IC=I-IA*100-IB*10 

IF (IA.NE.0) THEN 

WRITE (15, 285) GENERL, IA, IB, IC 
FORMAT ( IX, A5, 'V' ,311) 

ELSE IF (IB.NE.0) THEN 

WRITE (15, 290) GENERL, IB, IC 
FORMAT ( IX, A5, 'V' ,211) 


ELSE 


WRITE (15, 295) GENERL, IC 
FORMAT ( 1X,A5, 'V' , II) 


ENDIF 


MN=MN+1 

N=1 

IF (I.EQ.NIVIP) N=3 

IF ( (JJ.EQ.l) .OR. (IJJ.EQ. 1) .OR. (IJJ.EQ.15) .OR. (IJJ.EQ. 20) ) THEN 
IF ( (JJ.EQ. 6) .AND. ( (IJJ.EQ.15) .OR. (IJJ.EQ. 20)) ) GO TO 310 

IF ( (IJJ.EQ. 16) .OR. (IJJ.EQ. 17) .OR. (IJJ.EQ. 18) .OR. 

# (IJJ.EQ. 19) .OR. (IJJ.EQ. 21) .OR. (IJJ.EQ. 22) .OR. 

# (IJJ.EQ. 23) .OR. (IJJ.EQ. 24)) GO TO 310 

DO 305 JJJJ=1 , N 

WRITE (15, 300) GENERL 
FORMAT (IX, A5, ' 1' ) 

CONTINUE 

ENDIF 


1=1 + 1 

IF (I.EQ.NIMVIP) GO TO 325 
CONTINUE 
CONTINUE 


GEN66570 

GEN66580 

GEN66590 

GEN66600 

GEN66610 

GEN66620 

GEN 66630 

GEN66640 

GEN66650 

GEN66660 

GEN66670 

GEN 66680 

GEN 66690 

GEN66700 

GENS 67 10 

GEN66720 

GEN66730 

GEN66740 

GEN66750 

GEN66760 

GEN66770 

GEN66780 

GEN66790 

GEN66800 

GEN66810 

GEN 66820 

GEN66830 

GEN66840 

GEN66850 

GEN668 60 

GEN 66870 

GEN 66880 

GEN66890 

GEN66900 

GEN66910 

GEN66920 

GEN66930 

GEN66940 

GEN66950 

GEN66960 

GEN66970 

GEN66980 

GEN66990 

GEN67000 

GEN67010 

GEN67020 

GEN67030 

GEN 6 7040 

GEN67050 

GEN67060 

GEN67070 

GEN67080 

GEN67090 

GEN67100 

GEN67110 

GEN67120 

GEN67130 

GEN67140 

GEN67150 

GEN67160 

GEN67170 

GEN67180 

GEN67190 

GEN67200 
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^ C INTERMEDIATE INTAKE 




325 


— 330 


335 


340 


DO 350 L=l, ISTOP1 
IA=I/100 

IB=(I-IA*100) /10 
IC=I-IA*100-IB*10 

IF (IA.NE.0) THEN 

WRITE (15, 330) GENERL, IA, IB, IC 
FORMAT (IX, A5, ' V' , 311) 

ELSE IF (IB.NE.0) THEN 

WRITE (15, 335) GENERL, IB, IC 
FORMAT ( IX, A5, ' V' , 211) 

ELSE 

WRITE (15, 340) GENERL, IC 
FORMAT ( IX, A5, ' V' , II) 


ENDIF 


MN=MN+1 


IF ( (L.EQ.l) .OR. (L.EQ.5) .OR. (L.EQ.9) .OR. (L.EQ.13) 
# .OR. (L.EQ.17) .OR. (L.EQ.21) ) THEN 

WRITE (15, 345) GENERL 
345 FORMAT (IX, A5, ' 1' ) 

ENDIF 


1=1 + 1 


350 CONTINUE 


C 

C 

C 

C 

C 

C 


NTKMIN=MN-NTKMRC-NTKMEX 

WRITE (15, 200) 

************************************************************* 

* 

* 

* BEGIN THE GENERATION OF THE COMMANDS THAT WILL * 

* CREATE THE MESHES OF THE SPARK PLUG PORT * 

* 

************************************************************* 


WRITE (15, 30) SLASH 
WRITE (15, 35) GENERL 
WRITE (15, 40) GENERL 
WRITE (15, 54) GENERL 
WRITE (15, 56) GENERL 
WRITE (15, 58) 

I=NIVSP1 

DO 405 IN=1, ISP 

DO 400 JJ=1, IEND-1 

DO 395 IJJ=1, 20 


GEN67210 

GEN67220 

GEN67230 

GEN67240 

GEN67250 

GEN67260 

GEN67270 

GEN67280 

GEN67290 

GEN67300 

GEN67310 

GEN67320 

GEN67330 

GEN67340 

GEN67350 

GEN 67360 

GEN67370 

GEN67380 

GEN67390 

GEN67400 

GEN67410 

GEN67420 

GEN67430 

GEN67440 

GEN67450 

GEN67460 

GEN67470 

GEN67480 

GEN67490 

GEN67500 

GEN67510 

GEN67520 

GEN67530 

GEN67540 

GEN67550 

GEN67560 

GEN67570 

GEN67580 

GEN67590 

GEN 6 7 600 

GEN67610 

GEN67620 

GEN 6 7 630 

GEN67640 

GEN67650 

GEN67660 

GEN67670 

GEN67680 

GEN67690 

GEN 677 00 

GEN67710 

GEN67720 

GEN67730 

GEN67740 

GEN67750 

GEN677 60 

GEN67770 

GEN67780 

GEN67790 

GEN67800 

GEN67810 

GEN67820 

GEN67830 

GEN67840 
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355 

360 

365 


370 

375 


380 

385 

395 

400 

405 

C 

C 


IA=I/100 

IB- (I-IA*100) /10 
IC— I-IA*100-IB*10 

IF (IA.NE.0) THEN 

WRITE (15, 355) GENERL, IA, IB, IC 
FORMAT (IX, A5, 'V' , 311) 

ELSE IF (IB.NE.O) THEN 

WRITE (15, 360) GENERL, IB, IC 
FORMAT ( IX, A5, 'V' ,211) 

ELSE 

WRITE (15, 365) GENERL, IC 
FORMAT ( IX, A5, 'V' , II) 

ENDIF 


MN-MN+1 

N=1 

IF ( (I.EQ.NIVSP1) .OR. (I .EQ.NIVSP2) ) N=3 
IF (JJ.EQ.l) THEN 

IF ( (IJJ.EQ.l) .OR. (IJJ.EQ.2) .OR. (IJJ.EQ.3) .OR. (IJJ.EQ.4) 

# .OR. (IJJ.EQ.5) .OR. (IJJ.EQ.6) .OR. (IJJ.EQ.7) .OR. (IJJ.EQ.8) 

# .OR. (IJJ.EQ.9) .OR. (IJJ.EQ.17.) .OR. (IJJ.EQ.19) ) THEN 

DO 375 JJJJ=1,N 

WRITE (15, 370) GENERL 
FORMAT (IX, A5, ' 1' ) 

CONTINUE 


ENDIF 

ELSE IF ( (JJ.GT.l) .AND. (IJJ.EQ.l) ) THEN 

DO 385 JJJJ—1, N 

WRITE (15, 380) GENERL 
FORMAT ( IX, A5, f l') 

CONTINUE 


ENDIF 


1=1 + 1 


CONTINUE 

CONTINUE 

CONTINUE 


NTKMSP=MN-NTKMRC-NTKMEX-NTKMIN 




GEN67850 
GEN67860 
GEN67870 
GEN67880 
GEN67890 
GEN67900 
GEN 67 910 
GEN67920 
GEN67930 
GEN67940 
GEN67950 
GEN67960 
GEN67970 
GEN67980 
GEN67990 
GEN68000 
GEN68010 
GEN68020 
GEN68030 
GEN68040 
GEN68050 
GEN 68060 
GEN68070 
GEN 68080 
GEN68090 
GEN 68100 
GEN 68110 
GEN 68120 
GEN68130 
GEN68140 
GEN68150 
GEN68160 
GEN68170 
GEN68180 
GEN68190 
GEN68200 
GEN68210 
GEN68220 
GEN68230 
GEN68240 
GEN68250 
GEN68260 
GEN68270 
GEN68280 
GEN682 90 
GEN68300 
GEN68310 
GEN68320 
GEN68330 
GEN68340 
GEN68350 
GEN68360 
GEN68370 
GEN68380 
GEN68390 
GEN68400 
GEN 68410 
GEN 68420 
GEN68430 
GEN68440 
GEN68450 
GEN68460 
GEN68470 
GEN 68480 
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C * BEGIN THE GENERATION OF THE COMMANDS THAT WILL * 

C * CREATE THE MESHES OF THE RIBS * 

C * * 

Q ************************************************************* 

Q ************************************************************* 

C * * 

C * SET ELEMENT TYPE FOR GENERATION OF SOLID ELEMENTS * 

C * * 

Q ************************************************************* 

WRITE (15,200) 

WRITE (15, 30) SLASH 
WRITE (15, 35) GENERL 
WRITE (15, 40) GENERL 

WRITE (15, 420) GENERL 
420 FORMAT ( IX, A5, 'EL' ) 

WRITE (15, 425) GENERL 
425 FORMAT ( IX, A5, 'DEF' ) 

WRITE (15, 430) GENERL 
430 FORMAT < IX, A5,'TY') 

WRITE (15, 435) GENERL 
435 FORMAT ( IX, A5,' SOL') 

WRITE (15, 440) GENERL 
440 FORMAT (IX, A5, 'PB' ) 

WRITE (15, 30) SLASH 
WRITE (15, 54) GENERL 
WRITE (15, 56) GENERL 
WRITE (15, 58) 


1=6 

NUMEA=3 

DO 505 J=l, NUMBER 

IF (JJJR(J) .NE.0) GO TO 500 


IA=I/100 

IB= (I-IA*100) /10 
IC=I-IA*100-IB*10 

IF (IA.NE.0) THEN 

WRITE (15, 465) GENERL, IA, IB, IC 
465 FORMAT (IX, A5, 'V' , 311) 

ELSE IF (IB.NE.0) THEN 

WRITE (15, 470) GENERL, IB, IC 
470 FORMAT ( IX, A5, ' V' , 211) 

ELSE 


475 


WRITE (15, 475) GENERL, IC 
FORMAT ( IX, A5, ' V' , II) 


GEN68490 
GEN68500 
GEN 68510 
GEN68520 
GEN68530 
GEN68540 
GEN68550 
GEN68560 
GEN68570 
GEN68580 
GEN68590 
GEN68600 
GEN68610 
GEN68620 
GEN68630 
GEN 68640 
GEN68650 
GEN68660 
GEN68670 
GEN68680 
GEN 68690 
GEN68700 
GEN 68710 
GEN 68720 
GEN68730 
GEN68740 
GEN68750 
GEN68760 
GEN68770 
GEN 68780 
GEN 687 90 
GEN68800 
GEN68810 
GEN68820 
GEN68830 
GEN 68840 
GEN68850 
GEN68860 
GEN68870 
GEN68880 
GEN68890 
GEN68900 
GEN68910 
GEN68920 
GEN68930 
GEN68940 
GEN68950 
GEN68960 
GEN68970 
GEN6S980 
GEN68990 
GEN69000 
GEN69010 
GEN69020 
GEN69030 
GEN69040 
GEN69050 
GEN69060 
GEN69070 
GEN69080 
GEN69090 
GEN69100 
GEN 69110 
GEN69120 


ENDIF 
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MN=MN+1 

IF (IRIB(J) .EQ. 1) THEN 

WRITE (15, 480) GENERL, NUMEA 
480 FORMAT ( IX, A5, II) 

WRITE (15, 485) NOAL 
485 FORMAT (2X,A8) 

ELSE 

WRITE (15, 490) NOAL 
490 FORMAT (2X,A8) 

WRITE (15, 495) GENERL, NUMEA 
495 FORMAT (IX, A5, II) 

END IF 

500 1=1+7 

505 CONTINUE 


NSLMRB=MN-NTKMRC-NTKMEX-NTKMIN-NTKMSP 

c ************************************************************* 


c * * 

C * BEGIN THE GENERATION OF THE COMMANDS THAT WILL * 
C * CREATE THE MESHES OF THE STIFFENED CHANNELS * 
C * * 




C ************************************************************* 

c * * 

C * SET ELEMENT TYPE FOR GENERATION OF THIN SHELLS * 

C * * 

C ************************************************************* 

WRITE (15,200) 

WRITE (15, 30) SLASH 
WRITE (15, 35) GENERL 
WRITE (15, 40) GENERL 

WRITE (15, 420) GENERL 
WRITE (15, 425) GENERL 
WRITE (15, 430) GENERL 

WRITE (15, 520) GENERL 
520 FORMAT (IX, A5, ' TN' ) 

WRITE (15, 525) GENERL 
525 FORMAT (IX, A5, 'PQ' ) 

WRITE (15, 30) SLASH 
WRITE (15, 54) GENERL 
WRITE (15, 56) GENERL 
WRITE (15, 58 ) 

DO 575 JJ=1, NSTCN+1 

I=JJJSC ( JJ) 

IA=I/1000 


GEN69130 

GEN69140 

GEN69150 

GEN69160 

GEN69170 

GEN 69180 

GEN69190 

GEN69200 

GEN69210 

GEN69220 

GEN69230 

GEN69240 

GEN69250 

GEN69260 

GEN69270 

GEN69280 

GEN69290 

GEN 69300 

GEN69310 

GEN69320 

GEN69330 

GEN69340 

GEN69350 

GEN 69360 

GEN69370 

GEN69380 

GEN 69390 

GEN69400 

GEN 69410 

GEN69420 

GEN 69430 

GEN69440 

GEN69450 

GEN69460 

GEN69470 

GEN 69480 

GEN69490 

GEN69500 

GEN69510 

GEN69520 

GEN69530 

GEN69540 

GEN69550 

GEN69560 

GEN69570 

GEN69580 

GEN69590 

GEN69600 

GEN69610 

GEN69620 

GEN69630 

GEN69640 

GEN69650 

GEN69660 

GEN69670 

GEN69680 

GEN69690 

GEN69700 

GEN69710 

GEN69720 

GEN69730 

GEN69740 

GEN69750 

GEN69760 



generate . fortran 


Pri May 10 14:46:12 1991 


110 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


IB* ( I-IA*1 000 ) /10 0 
I0(l-IA*1000-IB*100) /10 
ID=I-IA*1000-IB*100-IC*10 


545 

550 

555 

560 


565 

570 

575 


IF (IA.NE.O) THEN 

WRITE (15, 545) GENERL, IA, IB, IC, ID 
FORMAT ( IX, A5 , ' SU' , 4 I 1 ) 

ELSE IF (IB.NE.O) THEN 

WRITE (15, 550) GENERL, IB, IC, ID 
FORMAT ( 1X,A5, ' SU' ,3ll) 

ELSEIF (IC.NE.O) THEN 

WRITE (15, 555) GENERL, IC, ID 
FORMAT ( IX, A5, ' SU' ,2ll) 


ELSE 


WRITE (15,560) GENERL, ID 
FORMAT ( IX, A5, ' SU' , II) 

ENDIF 

MN=MN+1 

WRITE (15, 565) GENERL, NUMES (JJ) 
FORMAT (IX, A5, 11) 

WRITE (15, 485) NOAL 

WRITE (15, 570) GENERL 
FORMAT ( IX, A5, '3' ) 


CONTINUE 


NTNMSC=MN-NTKMRC-NTKMEX-NTKMIN-NTKMSP-NSLMRB 


END MESH GENERATION 


* 

* 

* 

* 

* 

* BEGIN THE GENERATION OF THE COMMANDS THAT WILL * 

* CREATE THE NODES AND ELEMENTS * 

* * 

********************************************* H * HniH ^ HiH 

* 

* BEGIN NODE AND ELEMENT GENERATION * 

* OF THE INNER AND OUTER SHELLS * 

* 

******* *********************************^*****.*****-**.***££££.* 
* 

* SET THE TWO DIFFERENT MATERIAL PROPERTIES * 


GEN69770 

GEN69780 

GEN69790 

GEN69800 

GEN 69810 

GEN69820 

GEN69830 

GEN69840 

GEN69850 

GEN 6 9860 

GEN69870 

GEN69880 

GEN69890 

GEN69900 

GEN69910 

GEN69920 

GEN69930 

GEN 69 940 

GEN69950 

GEN69960 

GEN 69970 

GEN69980 

GEN6 99 90 

GEN70000 

GEN70010 

GEN70020 

GEN70030 

GEN70040 

GEN70050 

GEN70060 

GEN70070 

GEN70080 

GEN70090 

GEN70100 

GEN70110 

GEN70120 

GEN70130 

GEN70140 

GEN70150 

GEN70160 

GEN70170 

GEN70180 

GEN70190 

GEN70200 

GEN702 10 

GEN70220 

GEN70230 

GEN702 40 

GEN70250 

GEN70260 

GEN70270 

GEN70280 

GEN70290 

GEN70300 

GEN70310 

GEN70320 

GEN70330 

GEN70340 

GEN70350 

GEN70360 

GEN70370 

GEN70380 

GEN70390 

GEN70400 
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Q a:*****************************************-******************* 

GEN70410 




GEN70420 


WRITE (15,200) 


GEN70430 


WRITE (15, 30) SLASH 


GEN70440 


WRITE (15, 35) GENERL 


GEN70450 


WRITE (15, 40) GENERL 


GEN70460 


WRITE (15, 420) GENERL 


GEN70470 




GEN70480 


WRITE (15, 580) GENERL 


GEN70490 

580 

FORMAT (IX, A5, ' MAT' ) 


GEN70500 




GEN70510 


WRITE (15, 585) GENERL 


GEN70520 

585 

FORMAT (IX, A5, ' EN f ) 


GEN70530 




GEN70540 


WRITE (15, 590) GENERL 


GEN70550 

590 

FORMAT ( IX, A5, ' 1' ) 


GEN70560 




GEN70570 


WRITE (15, 595) GENERL 


GEN70580 

595 

FORMAT (IX, A5, ' 10E6' ) 


GEN70590 




GEN70600 


WRITE (15, 600) GENERL 


GEN70610 

600 

FORMAT ( IX, A5,' 0.30' ) 


GEN70620 




GEN70630 


DO 610 J=l, 9 


GEN70640 




GEN70650 


WRITE (15, 605) 


GEN70660 

605 

FORMAT (2X, '0 -1' ) 


GEN70670 




GEN70680 

610 

CONTINUE 


GEN70690 




GEN70700 


WRITE (15, 585) GENERL 


GEN70710 




GEN70720 


WRITE (15, 615) GENERL 


GEN70730 

615 

FORMAT ( IX, A5, '2' ) 


GEN707 40 




GEN70750 


WRITE (15, 620) GENERL 


GEN70760 

620 

FORMAT (IX, A5, '20E6' ) 


GEN70770 




GEN70780 


WRITE (15, 625) GENERL 


GEN70790 

625 

FORMAT (IX, A5, ' 0.25' ) 


GEN70800 




GEN70810 


DO 630 J-l, 9 


GEN70820 




GEN70830 


WRITE (15, 605) 


GEN70840 




GEN70850 

630 

CONTINUE 


GEN70860 




GEN70870 


WRITE (15, 30) SLASH 


GEN70880 


WRITE (15, 35) GENERL 


GEN70890 


WRITE (15, 40) GENERL 


GEN70900 


WRITE (15, 30) SLASH 


GEN70910 


WRITE (15, 420) GENERL 


GEN70920 


WRITE (15, 425) GENERL 


GEN70930 


WRITE (15, 430) GENERL 


GEN70940 


WRITE (15,48) GENERL 


GEN70950 


WRITE (15, 50) GENERL 


GEN70960 


WRITE (15, 30) SLASH 


GEN70970 




GEN70980 

<3 ******************************** ***************************** 

GEN70990 

C * 


* 

GEN71000 

C * 

END MATERIAL PROPERTY SET 

* 

GEN71010 

C * 


* 

GEN71020 

Q ************************************************************* 

GEN71030 




GEN71040 



generate . fortran 


Fri May 10 14:46:12 1991 


112 


WRITE (15, 635) GENERL 
635 FORMAT ( IX, A5, 'NE' ) 

WRITE (15,58) 

WRITE (15, 640) GENERL, NTKMRC 
640 FORMAT (IX, A5, ' 1' , IX, 13, IX, ' 1' ) 


1=0 


DO 665 JJ=1, NUMBER 

DO 660 I JJ=1 , ISTOP 


1 = 1+1 

IF (I. GT. NTKMRC) GO TO 670 
WRITE (15, 645) GENERL 

645 FORMAT ( IX, A5, ' 1' ) 

IF ( (JJ.EQ.l) .AND. (IJJ.EQ.l) ) THEN 
WRITE (15, 650) YES 

650 FORMAT (2X,A8) 


ENDIF 

IF ( (CCC.GT. 0 . 0) .AND. ( (IJJ.EQ. 1) .OR. (IJJ.EQ.4) ) ) THEN 

WRITE (15, 655) GENERL 
655 FORMAT (IX, A5, ' 2 ' ) 


ELSE 


WRITE (15, 645) GENERL 


ENDIF 


IF ( (JJ.EQ.l) .AND. (IJJ.EQ.l) ) THEN 
WRITE (15, 650) YES 


660 

665 


ENDIF 

CONTINUE 

CONTINUE 


Q ************************************************************* 

c * * 

C * BEGIN NODE AND ELEMENT GENERATION * 

C * OF THE EXHAUST PORT * 

C * * 

Q ************************************************************* 


670 WRITE (15, 30) SLASH 

WRITE (15, 35) GENERL 
WRITE (15, 40) GENERL 
WRITE (15, 635) GENERL 
WRITE (15, 58) 

WRITE (15, 675) GENERL, NTKMRC+1 , NTKMRC+NTKMEX 
675 FORMAT (IX, A5, 13, IX, 13, IX, ' 1' ) 

DO 680 JJ=1, NTKMEX 


GEN71050 
GEN71060 
GEN71070 
GEN71080 
GEN71090 
GEN71100 
GEN71110 
GEN71120 
GEN71130 
GEN71140 
GEN71150 
GEN71160 
GEN71170 
GEN71180 
GEN71190 
GEN71200 
GEN71210 
GEN71220 
GEN71230 
GEN71240 
GEN71250 
GEN71260 
GEN71270 
GEN71280 
GEN71290 
GEN71300 
GEN71310 
GEN71320 
GEN71330 
GEN71340 
GEN71350 
GEN71360 
GEN71370 
GEN71380 
GEN71390 
GEN71400 
GEN71410 
GEN71420 
GEN71430 
GEN71440 
GEN71450 
GEN71460 
GEN71470 
GEN71480 
GEN71490 
GEN71500 
GEN71510 
GEN71520 
GEN71530 
GEN71540 
GEN71550 
GEN71560 
GEN71570 
GEN71580 
GEN7 1590 
GEN71600 
GEN71610 
GEN71620 
GEN71630 
GEN71640 
GEN71650 
GEN71660 
GEN71670 
GEN71680 
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WRITE (15, 645) GENERL 

IF (JJ.EQ.l) THEN 

WRITE (15, 650) YES 

END IF 

IF ( (CCC.GT.0.0) .AND. ( (I JJ.EQ.l) .OR. (IJJ.EQ. 4) ) ) 
WRITE (15, 655) GENERL 

ELSE 

WRITE (15, 645) GENERL 

ENDIF 

IF (JJ.EQ.l) THEN 

WRITE (15, 650) YES 

ENDIF 

680 CONTINUE 

WRITE (15, 30) SLASH 

Q ************************************************************* 

C * * 

c * BEGIN NODE AND ELEMENT GENERATION * 

C * OF THE INTAKE PORT * 

C * * 

Q ************************************************************* 

WRITE (15, 30) SLASH 
WRITE (15, 35) GENERL 
WRITE (15, 40) GENERL 
NTW1=1 

DO 695 JJ=1, ISTOP3 

WRITE (15, 635) GENERL 
WRITE (15, 58) 

IF ( (JJ.EQ.l) .OR. (JJ.EQ. 12) ) THEN 

WRITE (15, 685) GENERL, NTKMRC+NTKMEX+NTW1 
685 FORMAT ( IX, A5, 13) 

NTW2=NTW1 

ELSE 

WRITE (15, 675) GENERL, NTKMRC+NTKMEX+NTW1, NTKMRC+NTKMEX+NTW2 
ENDIF 

111=1 

IF ( (JJ.NE.l) .OR. (JJ.NE.12) ) THEN 

DO 690 K=NTKMRC+NTKMEX+NTW1 , NTKMRC+NTKMEX+NTW2 


GEN71690 
GEN71700 
GEN71710 
GEN71720 
GEN71730 
GEN71740 
GEN71750 
GEN71760 
GEN71770 
THEN GEN71780 
GEN71790 
GEN71800 
GEN71810 
GEN71820 
GEN71830 
GEN71840 
GEN71850 
GEN71860 
GEN71870 
GEN71880 
GEN71890 
GEN71900 
GEN71910 
GEN71920 
GEN71930 
GEN71940 
GEN71950 
GEN71960 
GEN71970 
GEN71980 
GEN71990 
GEN72000 
GEN72010 
GEN72020 
GEN72030 
GEN72040 
GEN72050 
GEN72060 
GEN72070 
GEN72080 
GEN720 90 
GEN72100 
GEN72110 
GEN72120 
GEN72130 
GEN72140 
GEN72150 
GEN72160 
GEN72170 
GEN72180 
GEN72190 
GEN72200 
GEN72210 
GEN72220 
GEN72230 
GEN72240 
GEN72250 
GEN722 60 
GEN72270 
GEN72280 
GEN72290 
GEN72300 
GEN72310 
GEN72320 
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690 


695 


WRITE (15, 645) GENERL 

IF (III.EQ.l) THEN 

WRITE (15, 650) YES 

END IF 

IF ( (CCC.GT.O .0) .AND. ( (IJJ.EQ.l) .OR. (IJJ.EQ.4) ) ) 
WRITE (15, 655) GENERL 

ELSE 

WRITE (15, 645) GENERL 

END IF 

IF (III.EQ.l) THEN 

WRITE (15, 650) YES 

END IF 

111 = 111+1 

CONTINUE 

ELSE IF ( (JJ.EQ.l) .OR. (JJ.EQ.12) ) THEN 

WRITE (15, 645) GENERL 
WRITE (15, 645) GENERL 
WRITE (15, 650) YES 

ENDIF 

IF (JJ.EQ.l) NTW1=3 
IF (JJ.EQ.l) NTW2=12 
IF (JJ.EQ.2) NTW1=14 
IF (JJ.EQ.2) NTW2=25 
IF (JJ.EQ.3) NTW1=27 
IF (JJ.EQ.3) NTW2=36 
IF (JJ.EQ.4) NTW1=38 
IF (JJ.EQ.4) NTW2=39 
IF (JJ.EQ.5) NTW1=41 
IF (JJ.EQ.5) NTW2=50 
IF (JJ.EQ.6) NTW1=52 
IF (JJ.EQ.6) NTW2=53 
IF (JJ.EQ.7) NTW1=55 
IF (JJ.EQ.7) NTW2=64 
IF (JJ.EQ.8) NTW1=66 
IF (JJ.EQ.8) NTW2=67 
IF (JJ.EQ.9) NTW1=69 
IF (JJ.EQ.9) NTW2=78 
IF (JJ.EQ.10) NTW1=80 
IF (JJ.EQ.10) NTW2=90 

IF ( (CCC.EQ. 0 . 0) .AND. (JJ.EQ. 10) ) NTW2=NTW2+24 
IF (JJ.EQ. 11) NTW1=91 
IF (JJ.EQ.12) NTW1=93 
IF (JJ.EQ.12) NTW2=102 
IF (JJ.EQ. 13) NTWl=104 
IF (JJ.EQ. 13) NTW2=114+3 6 

CONTINUE 


GEN72330 
GEN72340 
GEN72350 
GEN72360 
GEN72370 
GEN72380 
GEN72390 
GEN72400 
THEN GEN72410 
GEN72420 
GEN72430 
GEN72440 
GEN72450 
GEN72460 
GEN72470 
GEN72480 
GEN72490 
GEN72500 
GEN72510 
GEN72520 
GEN72530 
GEN72540 
GEN72550 
GEN72560 
GEN72570 
GEN72580 
GEN72590 
GEN72600 
GEN72610 
GEN72620 
GEN72630 
GEN72640 
GEN72650 
GEN72660 
GEN72670 
GEN7 2 680 
GEN72690 
GEN72700 
GEN72710 
GEN72720 
GEN72730 
GEN72740 
GEN72750 
GEN727 60 
GEN72770 
GEN72780 
GEN727 90 
GEN72800 
GEN72810 
GEN72820 
GEN72830 
GEN72840 
GEN72850 
GEN72860 
GEN72870 
GEN72880 
GEN72890 
GEN72900 
GEN72910 
GEN72920 
GEN72930 
GEN72940 
GEN72950 
GEN72960 
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WRITE (15, 30) SLASH 


C 

C 

C 

c 

c 

c 


★ 


* 

* 

* 

* 


BEGIN NODE AND ELEMENT GENERATION 
OF THE SPARK PLUG PORT 




WRITE (15, 30) SLASH 
WRITE (15, 35) GENERL 
WRITE (15,40) GENERL 
WRITE (15, 30) SLASH 
WRITE (15, 420) GENERL 
WRITE (15, 425) GENERL 
WRITE (15, 430) GENERL 
WRITE (15, 48) GENERL 
WRITE (15, 50) GENERL 
WRITE (15, 30) SLASH 

WRITE (15, 635) GENERL 
WRITE (15, 58) 

WRITE (15, 675) GENERL, NTKMRC+NTKMEX+NTKMIN+1 

, NTKMRC+NTKMEX+NTKMIN+NTKMSP 

DO 700 JJ=1 , NTKMSP 

WRITE (15, 645) GENERL 

IF (JJ.EQ.l) THEN 

WRITE (15, 650) YES 


END IF 

IF ( (CCC.GT.O .0) .AND. ( (I JJ.EQ.l) .OR. (IJJ.EQ.4) ) ) 
WRITE (15, 655) GENERL 


ELSE 


WRITE (15, 645) GENERL 


END IF 


IF (JJ.EQ.l) THEN 

WRITE (15, 650) YES 


ENDIF 


700 CONTINUE 

WRITE (15, 30) SLASH 

******************* 

* 

* 


C 

c 

c 

c 

c 

c 


BEGIN NODE AND ELEMENT GENERATION 
TRIANGULAR WEDGES IN THE INTAKE PORT 




GEN72970 
GEN72980 
GEN72990 
GEN73000 
GEN73010 
GEN73020 
GEN73030 
GEN73040 
GEN73050 
GEN73060 
GEN73070 
GEN73080 
GEN73090 
GEN73100 
GEN73110 
GEN73120 
GEN73130 
GEN73140 
GEN73150 
GEN73160 
GEN73170 
GEN73180 
GEN73190 
GEN73200 
GEN73210 
GEN73220 
GEN73230 
GEN73240 
GEN73250 
GEN73260 
GEN73270 
GEN73280 
GEN73290 
GEN73300 
GEN73310 
GEN73320 
THEN GEN73330 
GEN73340 
GEN73350 
GEN73360 
GEN73370 
GEN73380 
GEN73390 
GEN73400 
GEN73410 
GEN73420 
GEN73430 
GEN73440 
GEN73450 
GEN73460 
GEN73470 
GEN73480 
GEN73490 
GEN73500 
GEN73510 
GEN73520 
GEN73530 
GEN73540 
GEN73550 
GEN73560 
GEN73570 
GEN73580 
GEN73590 
GEN73600 
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c * 

* 

GEN73610 

1 

c * 

SET THE ELEMENT TYPE FOR PARABOLIC WEDGES * 

GEN73620 

— 

c * 

* 

GEN73630 

w 

c *** 

********************************************************** 

WRITE (15, 30) SLASH 
WRITE (15, 35) GENERL 

GEN73640 

GEN73650 

GEN73660 

GEN73670 

_ _ 


WRITE (15, 40) GENERL 

GEN73680 



WRITE (15, 420) GENERL 

GEN73690 



WRITE (15, 425) GENERL 
WRITE (15, 430) GENERL 

GEN73700 

GEN73710 

GEN73720 



WRITE (15, 705) GENERL 

GEN73730 

'^ r 

705 

FORMAT ( IX, A5,'TK') 

GEN73740 

GEN73750 

7 


WRITE (15, 710) GENERL 

GEN7 37 60 

w 

710 

FORMAT (IX, A5, 'PB' ) 
WRITE (15, 30) SLASH 

GEN73770 

GEN73780 

GEN73790 

GEN73800 



DO 720 JJ=1, ISTOP2 

GEN73810 

GEN73820 



WRITE (15, 635) GENERL 

GEN73830 

GEN73840 



WRITE (15,58) 

GEN73850 

GEN73860 

| 3 


WRITE (15, 715) GENERL, NTKMRC+NTKMEX+NTW 

GEN73870 

715 

FORMAT (IX, A5, 13) 

GEN73880 

GEN73890 

l ] 


WRITE (15, 645) GENERL 

GEN73900 

GEN73910 



WRITE(15, 650) YES 

GEN73920 

GEN73930 

: : 


IF ( (CCC.GT.0.0) .AND. ( (IJJ.EQ.l) .OR. (IJJ.EQ.4) ) ) 

THEN GEN73940 
GEN73950 

VJ 


WRITE (15, 655) GENERL 

ELSE 

GEN73960 

GEN73970 

GEN73980 

GEN73990 

ImJ 


WRITE (15, 645) GENERL 

GEN74000 

GEN74010 

u 


END IF 

WRITE (15, 650) YES 

IF (JJ.EQ.l) NTW= 1 3 

GEN74020 

GEN74030 

GEN74040 

GEN74050 

GEN74060 

— 


IF (JJ.EQ.2) NTW=2 6 
IF (JJ.EQ.3) NTW=37 

GEN74070 

GEN74090 



IF (JJ.EQ.4) NTW= 4 0 

GEN7 40 90 

_ .. 


IF (JJ.EQ.5) NTW=51 

GEN74100 

v** 


IF (JJ.EQ.6) NTW=54 
IF (JJ.EQ.7) NTW= 6 5 

GEN74110 

GEN74120 

r :r 


IF (JJ.EQ.8) NTW= 6 8 

GEN74130 

t ; 

E 


IF (JJ.EQ.9) NTW=79 
IF (JJ.EQ.10) NTW=92 
IF (JJ.EQ.ll) NTW=103 

GEN74140 

GEN74150 

GEN74160 

GEN74170 


720 

CONTINUE 

WRITE (15, 30) SLASH 

GEN74180 

GEN74190 

GEN74200 

GEN74210 


p ************************************************************* 

GEN74220 


C * 

* 

GEN74230 


c * 

BEGIN NODE AND ELEMENT GENERATION * 

GEN74240 
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c * 

FOR THE RIBS * 

GEN74250 

c * 

* 

GEN74260 

c ************************************************************* 

GEN74270 



GEN74280 

r ************************************************************* 

GEN74290 

C * 

* 

GEN74300 

C * 

SET THE ELEMENT TYPE FOR SOLID ELEMENTS * 

GEN74310 

C * 

* 

GEN74320 

r ************************************************************* 

GEN74330 



GEN74340 


WRITE (15, 30) SLASH 

GEN74350 


WRITE (15, 35) GENERL 

GEN74360 


WRITE (15, 40) GENERL 

GEN74370 


WRITE (15, 420) GENERL 

GEN74380 


WRITE (15, 425) GENERL 

GEN74390 


WRITE (15, 430) GENERL 

GEN74400 



GEN74410 


WRITE (15, 725) GENERL 

GEN74420 

725 

FORMAT (IX, A5, ' SOL' ) 

GEN74430 



GEN74440 


WRITE (15, 50) GENERL 

GEN74450 


WRITE (15, 30) SLASH 

GEN74460 


WRITE (15, 420) GENERL 

GEN74470 



GEN74480 

r ************************************************************* 

GEN74490 

C * 

* 

GEN74500 

C * 

SET THE PHYSICAL PROPERTY FOR THIN SHELLS * 

GEN74510 

C * 

* 

GEN74520 

r ************************************************************* 

GEN74530 



GEN74540 


WRITE (15, 800) GENERL 

GEN74550 

800 

FORMAT (IX, A5, ' PHY' ) 

GEN74560 



GEN74570 


WRITE (15, 805) GENERL 

GEN74580 

805 

FORMAT ( IX, A5, ' EN' ) 

GEN74590 



GEN74600 


WRITE (15, 810) GENERL 

GEN74610 

810 

FORMAT (IX, A5, '3 ' ) 

GEN74620 



GEN74630 


WRITE (15, 815) GENERL 

GEN74640 

815 

FORMAT (IX, A5) 

GEN74650 



GEN74660 


WRITE (15, 815) GENERL 

GEN74670 


WRITE (15, 815) GENERL 

GEN74680 


WRITE (15, 815) GENERL 

GEN74690 



GEN74700 


WRITE (15, 30) SLASH 

GEN74710 


WRITE (15, 635) GENERL 

GEN74720 


WRITE (15, 58) 

GEN74730 



GEN74740 


WRITE(15, 675) GENERL, NTKMRC+NTKMEX+NTKMIN+NTKMSP+1 

GEN74750 

# 

, NTKMRC+NTKMEX+NTKMIN+NTKMSP+NSLMRB 

GEN7 47 60 



GEN74770 


DO 820 JJ=1 , NSLMRB 

GEN74780 



GEN74790 


WRITE (15, 810) GENERL 

GEN74800 



GEN74810 



GEN74820 


WRITE (15, 645) GENERL 

GEN74830 



GEN74840 


IF (JJ.EQ.l) THEN 

GEN74850 



GEN74860 


WRITE(15, 650) YES 

GEN74870 


GEN74880 



ii iii 
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END IF 

~ 820 CONTINUE 

WRITE (15, 30) SLASH 

Q A************************************************************ 

c * * 

C * BEGIN NODE AND ELEMENT GENERATION * 

*— C * FOR THE STIFFENED CHANNELS * 

C * * 

q ************************************************************* 

■ — Q ************************************************************* 

c * * 

; ; C * SET THE ELEMENT TYPE FOR THIN SHELLS * 

C * * 

Q ************************************************************* 

WRITE (15, 30) SLASH 
WRITE (15, 35) GENERL 
WRITE (15, 40) GENERL 
WRITE (15, 420) GENERL 
, . WRITE (15, 425) GENERL 

*- 3 WRITE (15, 430) GENERL 

;; WRITE (15, 825) GENERL 

U 825 FORMAT (IX, A5, 'TN' ) 

WRITE (15, 830) GENERL 
== 830 FORMAT (IX, A5, 'PQ' ) 

WRITE (15, 30) SLASH 
WRITE (15, 420) GENERL 

W Q ************************************************************* 

C * * 

- Z C * SET THE PHYSICAL PROPERTY FOR THIN SHELLS * 

~ C * * 

Q ************************************************************* 

WRITE (15, 835) GENERL 
ws 835 FORMAT (IX, A5, 'PHY' ) 

WRITE (15, 840) GENERL 
“ 840 FORMAT (1X,A5,'EN') 

WRITE (15, 845) GENERL 
H 845 FORMAT ( IX, A5, ' 2' ) 

W WRITE (15, 850) GENERL 

850 FORMAT (IX, A5, ' 0 .25, 0, 0, 0' ) 

WRITE (15, 855) GENERL 
855 FORMAT (IX, A5) 

WRITE (15, 855) GENERL 
LT WRITE (15, 855) GENERL 

WRITE (15, 855) GENERL 

— WRITE (15, 855) GENERL 

WRITE (15, 855) GENERL 
WRITE (15, 855) GENERL 


WRITE (15, 30 ) SLASH 


GEN74890 

GEN74900 

GEN74910 

GEN74920 

GEN74930 

GEN74940 

GEN74950 

GEN74960 

GEN74970 

GEN74980 

GEN74990 

GEN75000 

GEN75010 

GEN75020 

GEN75030 

GEN75040 

GEN75050 

GEN75060 

GEN75070 

GEN75080 

GEN750 90 

GEN75100 

GEN75110 

GEN75120 

GEN75130 

GEN75140 

GEN75150 

GEN75160 

GEN75170 

GEN75180 

GEN75190 

GEN75200 

GEN75210 

GEN75220 

GEN75230 

GEN75240 

GEN75250 

GEN75260 

GEN75270 

GEN75280 

GEN75290 

GEN75300 

GEN75310 

GEN75320 

GEN75330 

GEN75340 

GEN75350 

GEN75360 

GEN75370 

GEN75380 

GEN75390 

GEN75400 

GEN75410 

GEN75420 

GEN75430 

GEN75440 

GEN75450 

GEN75460 

GEN75470 

GEN75480 

GEN754 90 

GEN75500 

GEN75510 

GEN75520 
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WRITE (15, 635) GENERL 
WRITE (15, 58) 

WRITE (15, 675) GENERL, NTKMRC+NTKMEX+NTKMIN+NTKMSP+NSLMRB+1 
# , NTKMRC+NTKMEX+NTKMIN+NTKMSP+NSLMRB+NTNMSC 

DO 865 JJ — 1, NTNMSC 

WRITE (15, 860) GENERL 

860 FORMAT (IX, A5,' 2') 

WRITE (15, 645) GENERL 

IF (JJ.EQ.l) THEN 

WRITE (15, 650) YES 


ENDIF 


865 CONTINUE 


WRITE (15, 30 ) SLASH 


PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 


F f 

' THE UNIVERSAL AND PROGRAM FILES HAVE BEEN CREATED.' 

r f 

' BEFORE THE UNIVERSAL FILE CAN BE READ AND THE' 

' PROGRAM FILE EXECUTED, THE USER MUST ENTER THE' 

' SDRC SOFTWARE . ' 


PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 

PRINT*, 


NOTE THAT A FILE CALLED "MODEL DATA" CAN NOT' 

EXIST ON YOUR DISK. IF IT DOES, AN ERROR WILL' 
RESULT WHEN YOU ENTER THE SDRC SOFTWARE. TO' 
CORRECT THE ERROR, CHANGE THE NAME OF THE' 

"MODEL DATA" FILE THAT EXISTS ON YOUR DISK' 

TO A DIFFERENT NAME.' 

f 

AFTER ENTERING THE SDRC SOFTWARE IN THE PROGRAM MODE, ' 
RESPOND "R" (FOR RUN) TO THE FIRST QUESTION, ' 
RESPOND "GO" TO THE SECOND QUESTION AND' 

IN RESPONSE TO THE THIRD QUESTION, ' 

ENTER THE TERMINAL TYPE THAT YOU ARE USING.' 


C 

C 

C 

C 

C 


* * 

* END NODE AND ELEMENT GENERATION * 

* * 


RETURN 

END 


C 

C 

C 

C 

C 

C 

C 

C 

C 


************************************************************* 
* * 

* THIS PROGRAM GENERATES A PROGRAM FILE THAT, IN * 

* TURN CALLS A PROGRAM FILE. THE PROGRAM FILE * 

* FILE GENERATED IS CALLED RUN. THE RUN PROGRAM FILE * 

* READS TEH UNIVERSAL FILE - GEOMETRY- AND RUNS THE * 

* PROGRAM FILE - MSNDEL . * 

* * 
************************************************************* 


GEN75530 
GEN75540 
GEN75550 
GEN75560 
GEN75570 
GEN75580 
GEN75590 
GEN75600 
GEN75610 
GEN75620 
GEN75630 
GEN75640 
GEN75650 
GEN75660 
GEN75670 
GEN75680 
GEN75690 
GEN75700 
GEN75710 
GEN75720 
GEN75730 
GEN75740 
GEN75750 
GEN75760 
GEN75770 
GEN75780 
GEN75790 
GEN75800 
GEN75810 
GEN75820 
GEN75830 
GEN75840 
GEN75850 
GEN75860 
GEN75870 
GEN75880 
GEN75890 
GEN75900 
GEN75910 
GEN75920 
GEN75930 
GEN75940 
GEN75950 
GEN75960 
GEN75970 
GEN75980 
GEN75990 
GEN76000 
GEN76010 
GEN76020 
GEN76030 
GEN76040 
GEN76050 
GEN760 60 
GEN76070 
GEN76080 
GEN76090 
GEN76100 
GEN76110 
GEN76120 
GEN76130 
GEN76140 
GEN76150 
GEN76160 
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SUBROUTINE GO (ICONTI) 

GEN76170 




GEN76180 



CHARACTER* 1 0 GENERL, YES 

GEN76190 




GEN76200 



GENERL-'IO -1' 

GEN76210 




YES-' 3 -1YES' 

GEN76220 




GEN76230 

_ 


WRITE (22,25) 

GEN76240 


25 

FORMAT (2X, '4 -1%L') 

GEN76250 




GEN76260 



WRITE (22,30) 

GEN76270 

- ; 

30 

FORMAT (2X, '5 -1MODEL' ) 

GEN76280 




GEN76290 



WRITE (22, 35) YES 

GEN76300 


35 

FORMAT (2X, A8) 

GEN76310 

- . 



GEN76320 



WRITE (22, 40) 

GEN76330 


40 

FORMAT ( IX, ' 65 -1FINITE ELEMENT 

MODEL OF A ROTARY COMBUSTION GEN76340 



#ENGINE CENTER HOUSING') 

GEN76350 



. 

GEN76360 



WRITE (22,45) 

GEN76370 


45 

FORMAT (2X, '2 -1IN') 

GEN76380 




GEN76390 

1 } 


WRITE (22,50) 

GEN76400 

V— 

50 

FORMAT (2X, '3 -1FEM' ) 

GEN76410 




GEN76420 

: : 


WRITE (22, 55) 

GEN76430 


55 

FORMAT (2X, '2 -1FT' ) 

GEN76440 




GEN76450 



WRITE (22, 60) 

GEN76460 

1 , 

60 

FORMAT (2X, '2 -1RF' ) 

GEN76470 




GEN76480 



WRITE (22, 65) 

GEN76490 


65 

FORMAT (2X,' 2 -1UN' ) 

GEN76500 

_ 



GEN76510 



WRITE (22,70) 

GEN76520 


70 

FORMAT (2X, '8 -1GEOMETRY' ) 

GEN76530 




GEN76540 



WRITE (22,71) 

GEN7 6550 


71 

FORMAT (2X, '2 -1AU' ) 

GEN76560 




GEN76570 



WRITE (22,72) 

GEN76580 

'*»r- 

72 

FORMAT (IX, ' 12 -1/ DO E V OFF') 

GEN76590 




GEN76600 

- - 


WRITE (22,73) 

GEN76610 


73 

FORMAT (2X,' 6 -1SU OFF') 

GEN76620 

” 



GEN76630 



WRITE (22, 74) 

GEN76640 


74 

FORMAT (2X, '2 -1DR' ) 

GEN76650 

= 



GEN76660 



IF (ICONTI .EQ. 2) GO TO 110 

GEN76670 




GEN76680 

- - 


WRITE (22,75) 

GEN7 6690 

M 

75 

FORMAT (2X, '2 -1NM' ) 

GEN76700 




GEN76710 



WRITE(22, 80) 

GEN76720 

i"Z 

80 

FORMAT (2X, '2 -1MC' ) 

GEN76730 




GEN7 6740 



WRITE (22, 85) 

GEN76750 


85 

FORMAT (2X, ' 1 -IT' ) 

GEN76760 




GEN76770 



WRITE (22, 90) 

GEN76780 


90 

FORMAT (2X, '2 -IMA') 

GEN76790 




GEN76800 
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WRITE (22, 95) 


GEN76810 


95 

FORMAT (2X, '2 -1MO' ) 


GEN76820 





GEN76830 



WRITE (22, 100) 


GEN76840 


100 

FORMAT (2X, '2 -1PR' ) 


GEN76850 





GEN76860 



WRITE (22, 105) 


GEN76870 


105 

FORMAT (2X, ' 8 -1R MSNDEL' ) 


GEN76880 





GEN76890 

— 

110 

RETURN 


GEN76900 



END 


GEN76910 





GEN76920 

- - 




GEN76930 


c 

************************************************************* 

GEN76940 


c 

* 

* 

GEN76950 

- ■ 

c 

* THIS SUBROUTINE SOLVES FOR ALPHA GIVEN PHI 

* 

GEN76960 

- 

c 

* 

* 

GEN76970 


c 

************************************************************* 

GEN76980 





GEN76990 



SUBROUTINE PALPSL (EE, RR, PI, PHI, TRANS , ALPHA, NO) 


GEN77000 

w 




GEN77010 



FA (GAMMA) =TAN (PHI) * (EE*COS (3 . 0*GAMMA) +RR*COS (GAMMA) )- 


GEN77020 



# (EE*SIN (3 . 0*GAMMA) +RR*SIN (GAMMA) ) +TRANS 


GEN77030 

¥ 1 




GEN77040 



PHI=PHI*180 . 0/PI 


GEN77050 



DO 5 11=1,11,2 


GEN77060 

-- i 


TEST=PHI*II 


GEN77070 



IF (TEST . EQ .90.0*11) THEN 


GEN77080 





GEN77090 



PH I=PHI*PI/ 180.0 


GEN77100 



ALPHA=PHI+0 . 10*PHI 


GEN77110 

— 


GO TO 25 


GEN77120 





GEN77130 



ENDIF 


GEN77140 





GEN77150 

V 

c 

************************************************************* 

GEN77160 


c 

* 

* 

GEN77170 


c 

* INCREMENTAL SEARCH METHOD 

* 

GEN77180 


c 

* 

* 

GEN77190 


c 

************************************************************* 

GEN77200 





GEN77210 


5 

CONTINUE 


GEN77220 





GEN77230 



EPSI=0. 000001 


GEN77240 

” 


PHI=PHI*PI/180 . 0 


GEN77250 

V j! 




GEN77260 

— 


IT=0 


GEN77270 



IL=0 


GEN77280 

f . 


AAVG1=5 . 0 


GEN772 90 

!3 




GEN77300 

w 


DELTA=0 . 3*PI/180 . 0 


GEN77310 



ALPHA=PHI 


GEN77320 

— 




GEN77330 



AONE=FA (ALPHA) 


GEN77340 





GEN77350 


10 

ALPHA1=ALPHA+DELTA 


GEN77360 




ATWO=FA (ALPHA1) 


GEN77370 





GEN77380 



IF (AONE*ATWO . EQ .0.0) THEN 


GEN77390 





GEN77400 



ALPHA=ATWO 


GEN77410 



GO TO 25 


GEN77420 





GEN77430 

=■ " 




GEN77440 
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ELSE IF (ATW0*A0NE . GT .0.0) THEN 
IF (ATWO.GT .25.0) THEN 

WRITE (NO, *) 'ALPHA IS GOING TO INFINITY' 

STOP 

ELSE 

IT=IT+1 

IF ( (ATWO.GT. 0.0) .AND. (AONE . GT . 0 . 0 ) ) THEN 

IF (AONE-ATWO . LT . 0 . 0 ) THEN 
IL=IL+1 

IF(IL.GT.l) GO TO 15 
DELTA=-DELTA 


END IF 

ELSE IF( (ATWO.LT. 0.0) .AND. (AONE. LT. 0.0) ) THEN 

IF ( AONE-ATWO. GT. 0.0) THEN 
IL-IL+1 

IF(IL.GT.l) GO TO 15 
DELTA=-DELTA 


ENDIF 

ENDIF 

15 AONE=ATWO 

ALP H A= ALP H A1 
GO TO 10 

ENDIF 

ELSE IF ( ATWO*AONE . LT .0.0) THEN 

Q ************************************************************* 

C * * 

C * BISECTION METHOD * 

C * * 

C ************************************************************* 


20 AAVG= (ALPHA+ALPHA1 ) / 2 . 0 

ATHREE=FA (AAVG) 

IF (ATHREE.GT . 10 . 0) THEN 
STOP 


ENDIF 

IF (ABS (AAVG1-AAVG) .GT.EPSI) THEN 

IF (AONE*ATHREE .GT .0.0) THEN 

AAVG 1= AAVG 
ALP HA= AAVG 
AONE=ATHREE 
GO TO 20 

ELSE IF (AONE*ATHREE . LT . 0 . 0 ) THEN 

AAVG 1= AAVG 
ALP HA 1 = AAVG 


GEN77450 
GEN77460 
GEN77470 
GEN77480 
GEN77490 
GEN77500 
GEN77510 
GEN77520 
GEN77530 
GEN77540 
GEN77550 
GEN77560 
GEN77570 
GEN77580 
GEN77590 
GEN77600 
GEN77610 
GEN77620 
GEN77630 
GEN77640 
GEN77650 
GEN77660 
GEN77670 
GEN77680 
GEN77690 
GEN77700 
GEN77710 
GEN77720 
GEN77730 
GEN77740 
GEN77750 
GEN77760 
GEN77770 
GEN77780 
GEN777 90 
GEN77800 
GEN77810 
GEN77820 
GEN77830 
GEN77840 
GEN77850 
GEN77 8 60 
GEN77870 
GEN77880 
GEN77 8 90 
GEN77900 
GEN77910 
GEN77920 
GEN77930 
GEN77940 
GEN77950 
GEN77960 
GEN77970 
GEN77980 
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GEN78040 
GEN78050 
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GEN78080 
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ATWO-ATHREE 
GO TO 20 

END IF 

ELSE IF (ABS (AAVG1-AAVG) . LT.EPSI) THEN 

ALPHA-AAVG 

ENDIF 

ENDIF 

25 RETURN 
END 


Q ************************************************************* 

c * * 

C * THIS SUBROUTINE SOLVES FOR ALPHA GIVEN A Y-COORDINATE * 
C * * 

C ************************************************************* 

SUBROUTINE YALPSL (EE, RR, Y, ICHK, ALPHA, NO) 

FA (GAMMA) =EE*SIN (3 . 0*GAMMA) +RR*SIN (GAMMA) -Y 

IT=0 

IL=0 

AAVG1-5.0 

EPSI=0.0001 

DELTA=1 .0*3.141592654/180.0 

IF (ICHK.EQ. 0) THEN 
ALPHA=0 . 1 

ELSE IF (ICHK.EQ. 1) THEN 
ALPHA=2 . 7 5 

ENDIF 


AONE=FA (ALPHA) 

C ************************************************************* 
C * * 

C * INCREMENTAL SEARCH METHOD * 

C * * 

C ************************************************************* 

5 ALP HA 1 « ALP H A+DE LT A 

ATWO=FA (ALPHA1 ) 

IF (AONE*ATWO . EQ . 0.0) THEN 

ALPHA=ATWO 
GO TO 20 


ELSE IF (ATWO*AONE .GT .0.0) THEN 
IF (ATWO.GT.25 . 0) THEN 

WRITE (NO, *) 'ALPHA IS GOING TO INFINITY' 
STOP 

ELSE 

IT=IT+1 


GEN78090 

GEN78100 

GEN78110 

GEN78120 

GEN78130 

GEN78140 

GEN78150 

GEN78160 

GEN78170 

GEN78180 

GEN78190 

GEN78200 

GEN78210 

GEN78220 

GEN78230 

GEN782^0 

GEN78250 

GEN78260 

GEN78270 

GEN78280 

GEN78290 

GEN78300 

GEN78310 

GEN78320 

GEN78330 

GEN78340 

GEN78350 

GEN78360 

GEN78370 

GEN78380 
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GEN78410 

GEN78420 

GEN78430 

GEN78440 

GEN78450 

GEN78460 

GEN78470 
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GEN78710 

GEN78720 
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IF ( (ATWO . GT . 0 . 0 ) . AND . ( AONE . GT . 0 . 0 ) ) THEN 

IF ( AONE-ATWO . LT .0.0) THEN 
IL-IL+1 

IF(IL.GT.l) GO TO 10 
DELTA— DELTA 

ENDIF 

ELSE IF( (ATWO. LT.O .0) .AND. (AONE. LT. 0.0) ) THEN 

IF ( AONE-ATWO. GT. 0.0) THEN 
IL-IL+1 

IF(IL.GT.l) GO TO 10 

: DELTA-DELTA 

ENDIF 

ENDIF 

10 AONE-ATWO 

ALP HA— ALP HA 1 
GO TO 5 

ENDIF 


ELSE IF (ATWO* AONE . LT . 0 . 0 ) THEN 


C 

C 

C 

C 

C 


* * 

* BISECTION METHOD * 

* * 


15 AAVG=(ALPHA+ALPHAl)/2.0 

ATHREE-FA (AAVG) 

IF (ATHREE . GT .10.0) THEN 
STOP 


ENDIF 

IF (ABS (AAVG1-AAVG) .GT.EPSI) THEN 

IF (AONE* ATHREE. GT. 0.0) THEN 

AAVG 1 -AAVG 
ALP HA- AAVG 
AONE-ATHREE 
GO TO 15 

ELSE IF (AONE*ATHREE . LT . 0 . 0 ) THEN 

AAVG 1 -AAVG 
ALPHA1-AAVG 
ATWO-ATHREE 
GO TO 15 

ENDIF 

ELSE IF (ABS (AAVG1-AAVG) .LT.EPSI) THEN 

ALP HA- AAVG 
ENDIF 
ENDIF 


GEN78730 

GEN78740 

GEN78750 

GEN78760 

GEN78770 

GEN78780 

GEN78790 

GEN78800 

GEN78810 

GEN78820 

GEN78830 

GEN78840 

GEN78850 

GEN78860 

GEN78870 

GEN78880 

GEN78890 

GEN78900 

GEN78910 

GEN78920 
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GEN78950 
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GEN79040 
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GEN79070 

GEN79080 

GEN79090 
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GEN79110 

GEN79120 

GEN79130 

GEN79140 

GEN79150 

GEN79160 

GEN79170 

GEN79180 

GEN79190 

GEN79200 

GEN79210 

GEN79220 

GEN79230 

GEN79240 

GEN79250 

GEN79260 

GEN79270 

GEN79280 

GEN79290 

GEN79300 

GEN79310 

GEN79320 

GEN79330 

GEN79340 

GEN79350 
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20 RETURN 
END 


c ************************************************************* 
c * * 

c * THIS SUBROUTINE SOLVES FOR THETA GIVEN ALPHA * 

C * * 

c ************************************************************* 

SUBROUTINE THTASL (EE, RR, PI, ALPHA, THETA, NO) 

FA (GAMMA) = (RR+3 . 0 *EE*COS (2 . 0*ALPHA) ) / (SQRT 
# ( 9 . 0*EE**2+RR**2+6 . 0*EE*RR*COS (2 . 0* ALP HA) ) ) -COS (GAMMA) 


IT=0 

IL=0 

TAVG1=5 . 0 
EPSI=0 .0001 

DELTA=1 ,0*P 1/180.0 
THETA=0 . 25 

TONE=FA (THETA) 

c ************************* *********************************^** 
c * * 

c * INCREMENTAL SEARCH METHOD * 

C * * 

C ************************************************************* 


5 THETA1=THETA+DELTA 
TTWO=FA ( THETA1 ) 

IF (TONE*TTWO . EQ .0.0) THEN 

THETA=TTWO 
GO TO 20 


ELSE IF (TTWO*TONE . GT . 0 . 0) THEN 
IF (TTWO . GT . 25 . 0 ) THEN 

WRITE (NO / *) 9 THETA IS GOING TO INFINITY' 

STOP 

ELSE 

IT=IT+1 

IF ( (TTWO. GT. 0.0) .AND. (TONE . GT . 0 . 0 ) ) THEN 

IF ( TONE-TTWO . LT . 0 . 0 ) THEN 
IL-IL+1 

IF ( IL . GT . 1 ) GO TO 10 
DELTA=-DELTA 

ENDIF 

ELSE IF ( ( TTWO . LT . 0 . 0 ) . AND . ( TONE . LT . 0 . 0 ) ) THEN 

IF ( TONE-TTWO. GT . 0.0) THEN 
IL-IL+1 

IF (IL .GT . 1) GO TO 10 
DELTA=-DELTA 


GEN79370 

GEN79380 

GEN7 9390 

GEN79400 

GEN79410 

GEN79420 

GEN79430 

GEN79440 

GEN79450 

GEN79460 

GEN79470 

GEN79480 

GEN7 94 90 

GEN79500 

GEN79510 
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GEN79590 

GEN79600 

GEN79610 

GEN79620 

GEN79630 

GEN79640 

GEN79650 

GEN79660 

GEN79670 

GEN79680 

GEN79690 

GEN79700 

GEN79710 

GEN79720 

GEN79730 

GEN79740 

GEN79750 

GEN79760 

GEN79770 

GEN79780 

GEN79790 

GEN79800 
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GE^7 98 4 0 

GEN79850 

GEN79860 

GEN79870 

GEN79880 

GEN79890 
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ENDIF 

GEN80010 





GEN80020 



ENDIF 

GEN80030 


10 

TONE=TTWO 

GEN800 40 

- 


THETA-THETA1 

GEN800 50 

\ 


GO TO 5 

GEN800 60 




GEN80070 



ENDIF 

GEN80080 




GEN80090 

“ 


ELSE IF (TTWO*TONE . LT .0.0) THEN 

GEN80100 




GEN80110 


c 

*************************************** **** ****** ************ 

GEN80120 


c 

* * 

GEN90130 


c 

* BISECTION METHOD * 

GEN80140 


c 

* * 

GEN80150 


c 

************************************************************* 

GEN80160 




GEN80170 


15 TAVG= ( THETA+THETA1 ) / 2 . 0 

GEN80180 

E : 


TTHREE=FA (TAVG) 

GEN80190 

- - 



GEN80200 



IF (TTHREE.GT. 10 .0) THEN 

GEN80210 



STOP 

GEN80220 

, 



GEN80230 



ENDIF 

GEN80240 




GEN80250 



IF (ABS (TAVGl-TAVG) .GT.EPSI) THEN 

GEN80260 




GEN80270 

I 1 

V 


IF (TONE*TTHREE . GT .0.0) THEN 

GEN80280 




GEN80290 

~ . 


TAVG1=TAVG 

GEN80300 

- 1 


THETA=TAVG 

GEN80310 



TONE=TTHREE 

GEN80320 



GO TO 15 

GEN80330 

Ei”V 



GEN80340 



ELSE IF (TONE*TTHREE . LT . 0 . 0 ) THEN 

GEN80350 




GEN80360 



TAVG1=TAVG 

GENS 0370 



THETA1=TAVG 

GEN80380 



TTWO=T THREE 

GEN80390 



GO TO 15 

GEN80400 



ENDIF 

GEN80410 

V ,=j 



GEN80420 



ELSE IF (ABS (TAVGl-TAVG) .LT.EPSI) THEN 

GEN80430 




GEN80440 

- ' 


THETA=TAVG 

GEN80450 

El 


ENDIF 

GEN80460 



ENDIF 

GEN80470 




GEN80480 


20 

IF ( ( (ALPHA. GT. 0.0) .AND. (ALPHA . LT . PI/2 . 0 ) ) .OR. ( (ALPHA. GT. PI) .AND. 

GEN80490 

sa 


# (ALPHA.LT. 3. 0*PI/2.0) ) ) THETA=-THETA 

GEN80500 




GEN80510 

-- 


RETURN 

GEN80520 

== = 


END 

GEN80530 




GEN80540 


C 

************************************************************* 

GEN80550 

— 

C 

* * 

GEN80560 

- ' 

C 

* THIS SUBROUTINE CALCULATES THE POINT COORDINATES * 

GEN80570 


C 

* OF THE EXHAUST PORT * 

GEN80580 


c 

* * 

GEN80590 


c 

************************************************************* 

GEN80600 

^ 2 

W- 3 



GEN80610 



SUBROUTINE EXHST (EE, RR, R, PI, REXPT, TEXPT, AA, BB, CC, D, DEPTH, 

GEN80620 



# TRANS, PHI1EP, PHI2EP, PHIIOD, PHI20D, PHI1NW, 

GEN80630 



# GIX, GIY, GGIX, GGIY, GGGIX, GGGIY) 

GEN80640 
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# 

# 

* 

# 

# 

* 

* 

* 

# 

# 

* 

# 

* 

* 

# 

# 

* 


COMMON 

t 

PORT 

/ 

XI (7 ) , Yl (7 ) 

,Z1 

(7), 

X2 (7) , Y2 (7) , Z2 

(7) 

, X3 (7) , 

Y3(7) , 

Z3 (7) , 

X4 (7) , Y4 (7) 

/ Z4 

(7), 

X5 (7) ,Y5 (7) ,Z5 

(7) 

, X6 (7) , 

Y6(7),Z6(7) 

r 

X 7(7), 

Y7<7) , Z7 (7) 

,X8 

<7), 

Y8 (7) , Z8 (7) ,X9 

(7) 

,Y9(7), 

Z9(7), 



xio 

(7) 

, Y10 

(7) 

,Z10 

(7) 

,X11 

(7) 

, Yll 

(7) 

, Zll 

(7) 

, X12 

(7) 

, Y12 

(7) 

, Z12 

(7) 

X13 

(7) 

, Y13 

(7) 

,Z13 

(7) 

, X14 

(7) 

, Y14 

(7) 

, Z14 

(7) 

, X15 

(7) 

, Y15 

(7) 

, Z15 

(7) 

X16 

(7) 

,Y16 

(7) 

,Z16 

(7) 

, X17 

(7) 

, Y17 

(7) 

, Z17 

(7) 

, X18 

(7) 

, Y18 

(7) 

, Z18 

(7) 

XI 9 

(7) 

, Y19 

(7) 

,Z19 

(7) 

, X20 

(7) 

, Y20 

(7) 

, Z20 

(7) 

, X21 

(7) 

, Y21 

(7) 

, Z21 

(7) 

X22 

(7) 

, Y22 

(7) 

, Z22 

(7) 

, X23 

(7) 

, Y23 

(7) 

, Z23 

(7) 

, X24 

(7) 

, Y24 

(7) 

, Z24 

(7) 

X25 

(7) 

, Y25 

(7) 

, Z25 

(7) 

, X2 6 

(7) 

, Y2 6 

(7) 

, Z26 

(7) 

, X27 

(7) 

, Y27 

(7) 

, Z27 

(7) 

X28 

(7) 

, Y28 

(7) 

, Z28 

(7) 

, X2 9 

(7) 

, Y2 9 

(7) 

, Z29 

(7) 

, X30 

(7) 

, Y30 

(7) 

, Z30 

(7) 

X31 

(7) 

, Y31 

(7) 

, Z31 

(7) 

, X32 

(7) 

, Y32 

(7) 

, Z32 

(7) 

, X33 

(7) 

, Y33 

(7) 

, Z33 

(7) 

X34 

(7) 

, Y34 

(7) 

, Z34 

(7) 

, X35 

(7) 

, Y35 

(7) 

, Z35 

(7) 

, X36 

(7) 

, Y36 

(7) 

, Z36 

(7) 

X37 

(7) 

,Y37 

(7) 

, Z37 

(7) 

, X38 

(7) 

, Y38 

(7) 

, Z38 

(7) 

, X39 

(7) 

, Y39 

(7) 

, Z39 

(7) 

X40 

(7) 

, Y40 

(7) 

,Z40 

(7) 

, X41 

(7) 

, Y41 

(7) 

, Z41 

(7) 

, X42 

(7) 

, Y42 

(7) 

, Z42 

(7) 

X43 

(7) 

, Y43 

(7) 

, Z43 

(7) 

, X44 

(7) 

, Y44 

(7) 

, Z44 

(7) 

, X45 

(7) 

, Y45 

(7) 

, Z45 

(7) 

X46 

(7) 

, Y46 

(7) 

, Z46 

(7) 

, X47 

(7) 

, Y47 

(7) 

, Z47 

(7) 

,X48 

(7) 

, Y48 

(7) 

, Z48 

(7) 

X49 

(7) 

, Y49 

(7) 

, Z49 

(7) 

, X50 

(7) 

, Y50 

(7) 

, Z50 

(7) 

, X51 

(7) 

, Y51 

(7) 

, Z51 

(7) 

X52 

(7) 

, Y52 

(7) 

, Z52 

(7) 

, X53 

(7) 

, Y53 

(7) 

, Z53 

(7) 







XXX 

(Z, 

BETA) =Z 

*cos 

(BETA) 












YYY 

(ZZ 

, BETA) - 

ZZ*SIN (BETA) 











FNX 

(GAMMA) : 

= EE 

*COS 

(3. 

0 * GAMMA) +RR*COS (GAMMA) 







FNY (GAMMA) =EE*SIN (3 . 0*GAMMA) +RR*S IN (GAMMA) 


FINERX (GAMMA, RLAMB, FF) =EE*COS (3 . 0*GAMMA) +RR*COS (GAMMA) + 

# FF*COS (GAMMA+RLAMB) 

FINERY (GAMMA, RLAMB, FF) =EE*SIN < 3 . 0 *GAMMA) +RR*SIN (GAMMA) + 

# FF*SIN (GAMMA+RLAMB) 


R=RR-EE+D -TRANS +AA 
TRANS=-TRANS 
PHI= (PHI1EP+PHI2EP) /2 . 0 
DROP=R*SIN (PHI) 
YCNTR=TRANS-DROP 
YYONE=R*SIN (PHI1EP) 
YYTWO=R* SIN (PHI2EP) 
YYTRE= (YYONE-YYTWO) /2 . 0 


DO 15 JJ=1 , 7 

Y1 ( JJ) =YCNTR-REXPT 
Z1 ( JJ) =DEPTH/2 . 0 

XI (JJ) =SQRT (R**2- (Y1 ( JJ) -TRANS) **2 ) 

Y2 (JJ) =YCNTR-REXPT*SIN (60 . 0*PI/180 . 0) 

Z2 (JJ) =DEPTH/2 . 0+REXPT*COS (60 . 0*PI/180 . 0) 
X2 (JJ) =SQRT (R**2- (Y2 ( JJ) -TRANS) **2) 

Y3 ( JJ) =YCNTR-REXPT*SIN (30 .0*PI/180.0) 

Z3 (JJ) =DEPTH/2 . 0+REXPT*COS (30 . 0*PI/180.0) 
X3 ( JJ) =SQRT (R**2- (Y3 ( JJ) -TRANS) **2) 

Y4 ( JJ) =YCNTR 

Z4 ( JJ) =DEPTH/2 . 0+REXPT 

X4 ( JJ) =SQRT (R**2- (Y4 (JJ) -TRANS) **2) 

Y5 ( JJ) =YCNTR+REXPT*S IN (30 . 0*PI/180 .0) 

Z5 (JJ) =DEPTH/2 . 0+REXPT*COS (30 . 0*PI/180 . 0) 


GEN80650 
GEN80660 
GEN80670 
GEN80680 
, GEN80690 
, GEN80700 
, GEN80710 
, GEN80720 
, GEN90730 
, GEN80740 
, GEN80750 
,GEN80760 
, GEN80770 
, GEN80780 
, GEN80790 
, GEN80800 
, GEN80810 
, GEN80820 
GEN80830 
GEN80840 
GEN80850 
GEN80860 
GEN80870 
GEN80880 
GEN80890 
GEN80900 
GEN80910 
GEN80920 
GEN80930 
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GEN81030 
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GEN81100 
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GEN81140 
GEN81150 
GEN81160 
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GEN81180 
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GEN81230 
GEN81240 
GEN81250 
GEN81260 
GEN81270 
GEN81280 
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X5 ( JJ) -SQRT <R**2- ( Y5 ( JJ) -TRANS) **2) 

Y6 (JJ) =YCNTR+REXPT*SIN (60 ,0*P 1/180.0) 

Z6 (JJ) -DEPTH/2 . 0+REXPT*COS ( 60. 0*P 1/180.0) 
X6 (JJ) -SQRT (R**2- (Y6 (JJ) -TRANS) **2) 

Y7 ( JJ) — YCNTR+REXPT 

Z7 (JJ) -DEPTH/2.0 

X7 ( JJ) -SQRT (R**2- (Y7 (JJ) -TRANS) **2) 

Y8 ( JJ) -YCNTR+REXPT* SIN (60.0*PI/180.0) 

Z8 (JJ) -DEPTH/2 . 0-REXPT*COS (60 . 0*PI/180 . 0) 
X8 ( JJ) -SQRT (R**2- (Y8 (JJ) -TRANS) **2 ) 

Y9 (JJ) -YCNTR+REXPT* SIN (30 .0*PI/180.0) 

Z9 ( JJ) -DEPTH/2 . 0-REXPT*COS (30 . 0*PI/180 .0) 
_ X9 (JJ) -SQRT (R**2- (Y9 (JJ) -TRANS) **2) 

Y10 (JJ)-YCNTR 

Z10 (JJ) -DEPTH/2 . 0-REXPT 

V xl ° ( JJ) =SQRT (R**2- ( Y10 ( JJ) -TRANS) **2) 

Yll (JJ) — YCNTR-REXPT*SIN (30 . 0*PI/180 .0) 

Zll (JJ) -DEPTH/2 . 0-REXPT*COS (30. 0*P 1/180.0) 
« Xll (JJ) -SQRT (R**2- (Yll (JJ) -TRANS) **2) 

Y12 ( JJ) =YCNTR-REXPT*SIN (60 . 0*PI/180 . 0) 
i • Z12(JJ) -DEPTH/2. 0-REXPT*COS( 60. 0*PI/180.0) 

X12 (JJ) -SQRT (R**2- (Y12 ( JJ) -TRANS) **2) 


Y13 ( JJ) -YCNTR-REXPT-TEXPT 

X13 (JJ) -SQRT (R**2- (Y13 ( JJ) -TRANS) **2) 

Z13 (JJ) =3 . 0*DEPTH/4 . 0 

IF (JJ.EQ. 5) THEN 

Y13 (JJ) -GIY 
X13 (JJ) —GIX 

ELSE IF (JJ.EQ. 6) THEN 

Y13 (JJ)-GGIY 
X13 (JJ)-GGIX 
ELSE IF (JJ.EQ. 7) THEN 

Y13 (JJ) -GGGIY 
X13 ( JJ) -GGGIX 

END IF 

X14 (JJ) -X13 (JJ) 

Y14 (JJ) — Y13 (JJ) 

Z14 (JJ) -DEPTH/2 . 0 

X15 ( JJ) -X13 (JJ) 

Y15 ( JJ) =Y13 ( JJ) 

Z15(JJ) -DEPTH/4.0 

Y16 (JJ) -Y3 ( JJ) -TEXPT*SIN (30 . 0*PI/180 . 0) 
Z16 (JJ) -Z3 ( JJ) +TEXPT*COS (30 . 0*PI/180 . 0) 
X16 (JJ) -SQRT (R**2- (Y16 (JJ) -TRANS) **2) 

Y17 (JJ)-YCNTR 

Z17 ( JJ) — Z4 ( JJ) +TEXPT 


GEN81290 

GEN81300 

GEN81310 

GEN81320 
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X17 ( JJ) -SQRT (R**2- (Y17 ( JJ) -TRANS) **2) 

GEN81930 




GEN81940 

V" 


Y18 ( JJ) -Y5 (JJ) +TEXPT*SIN (30. 0*P 1/180.0) 

GEN81950 



Z18 (JJ)-Z5(JJ)+TEXPT*COS ( 30. 0*P 1/180.0) 

GEN81960 



X18 ( JJ) -SQRT (R**2- (Y18 ( JJ) -TRANS) **2) 

GEN81970 




GEN81980 



X19 (JJ) -XXX (R, PHI1NW) 

GEN81990 



Y19 ( JJ) — YYY (R, PHI1NW) +TRANS 

GEN82000 



Z19(JJ) -DEPTH/4.0 

GEN82010 

— 



GEN82020 



X20 (JJ) -X19 (JJ) 

GEN82030 



Y20 (JJ) -Y19 (JJ) 

GEN82040 



Z20 (JJ) -DEPTH/2 .0 

GEN82050 




GEN82060 



X21 ( JJ) =X19 ( JJ) 

GEN82070 



Y21 (JJ)=Y19 (JJ) 

GEN82080 



Z21 ( JJ) =3 . 0*DEPTH/4 . 0 

GEN82090 




GEN82100 



Y22 (JJ) =Y9 (JJ) +TEXPT*SIN (30 . 0*PI/180 .0) 

GEN82110 



Z22 (JJ) =Z9 (JJ) -TEXPT*COS (30 . 0*PI/180 .0) 

GEN82120 

— 


X22 ( JJ) -SQRT (R* *2- (Y22 ( JJ) -TRANS) **2) 

GEN82130 




GEN82140 



Y23 ( JJ) — YCNTR 

GEN82150 



Z23 ( JJ) -Z10 ( JJ) -TEXPT 

GEN82160 



X23 (JJ) -SQRT (R**2- (Y23 ( JJ) -TRANS) **2) 

GEN82170 




GEN82180 



Y24 (JJ) — Yll (JJ) -TEXPT*SIN (30 .0*P 1/180.0) 

GEN82190 



Z24 ( JJ) -Zll ( JJ) -TEXPT*COS (30 . 0*PI/180 . 0) 

GEN82200 



X24 ( JJ) -SQRT (R**2- (Y24 ( JJ) -TRANS) **2) 

GEN82210 




GEN82220 



Z25 ( JJ) =0 . 0 

GEN82230 



Z26 (JJ)=0 .0 

GEN82240 



Z27 (JJ)-O.O 

GEN82250 



Z28 (JJ)-O.O 

GEN82260 

= ; 


Z31 (JJ) -DEPTH 

GEN82270 



Z32 (JJ) -DEPTH 

GEN82280 



Z33 (JJ) -DEPTH 

GEN822 90 



Z34 (JJ) -DEPTH 

GEN82300 




GEN82310 



IF ( (JJ.EQ.l) .OR. (JJ.EQ.2) .OR. (JJ.EQ.5) .OR. (JJ.EQ.6) . 

GEN82320 


# 

OR. (JJ.EQ.7) ) THEN 

GEN82330 




GEN82340 



Y26 (JJ) -Y16 ( JJ) 

GEN82350 



X26 (JJ)=X16 (JJ) 

GEN82360 




GEN82370 

__ , 


Y27 ( JJ) — Y17 (JJ) 

GEN82380 

— 


X27 ( JJ) — X17 (JJ) 

GEN82390 




GEN82400 



Y28 ( JJ) -Y18 ( JJ) 

GEN82410 

T ' ?. 


X28 (JJ) -XI 8 (JJ) 

GEN82420 




GEN82430 



Y31 (JJ)-Y22 (JJ) 

GEN82440 



X31 ( JJ) -X22 (JJ) 

GEN82450 




GEN82460 



Y32 ( JJ) -Y23 (JJ) 

GEN82470 



X32 (JJ) -X23 (JJ) 

GEN82480 




GEN82490 

: rs 


X33 (JJ) -X24 (JJ) 

GEN82500 



Y33 (JJ) — Y24 (JJ) 

GEN82510 

■ : 



GEN82520 



X34 ( JJ) -X13 (JJ) 

GEN82530 

■ 


Y34 (JJ)=Y13 (JJ) 

GEN82540 




GEN82550 



X25 ( JJ) -X13 (JJ) 

GEN82560 
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Y25(JJ)=Y13(JJ) 

ENDIF 

X29(JJ)«X19(JJ) 

Y29(JJ)“Y19(JJ) 

Z29 ( JJ) “0 . 0 

X30 ( JJ) =X29 ( JJ) 

Y30 ( JJ) =Y29 ( JJ) 

Z30 (JJ) “DEPTH 

Z35(JJ) “DEPTH 

Z36 ( JJ) -3 . 0*DEPTH/4 . 0 

Z37 (JJ)=DEPTH/2 .0 

Z38 (JJ) “DEPTH/4.0 

Z39 ( JJ) =0 . 0 

Z40 (JJ) “DEPTH 

Z41 ( JJ) =3 . 0*DEPTH/4 . 0 

Z42 (JJ) “DEPTH/2.0 

Z43(JJ) “DEPTH/4.0 

Z44 ( JJ) =0 . 0 

Z45(JJ) “DEPTH 

Z46 (JJ) =3 . 0*DEPTH/4 . 0 

Z47 (JJ) “DEPTH/2.0 

Z48 (JJ) “DEPTH/4.0 

Z49 ( JJ) =0 . 0 

IF( (JJ.EQ.l) .OR. (JJ.EQ.2) ) THEN 

PHI11=ATAN(ABS (Y34 (1) -TRANS) /X34 (1) ) 
PHI12=PHI20D-PHI11 
PHI13=PHIll+2 ,0*PHI12/5 .0 
PHI 14=PHI 11+3 . 0*PHI12/4 . 0 

X35 ( JJ) =XXX (R, PHI 13) 

Y35 ( JJ) =-YYY (R, PHI13) +TRANS 

X40 ( JJ) =XXX (R, PHI14) 

Y40 (JJ) =-YYY (R, PHI14) +TRANS 

X45 ( JJ) “XXX (R, PHI20D) 

Y45 ( JJ) =-YYY (R, PHI20D) +TRANS 

X36 ( JJ) =X35 (JJ) 

Y36 (JJ) =Y35 ( JJ) 

X37 ( JJ) =X35 (JJ) 

Y37 ( JJ) =Y35 ( JJ) 

X38 ( JJ) =X35 ( JJ) 

Y38 ( JJ) =Y35 (JJ) 

X39 ( JJ) =X35 (JJ) 

Y39 ( JJ) =Y35 { JJ) 

X41 ( JJ) =X40 (JJ) 

Y41 (JJ) =Y40 (JJ) 

X42 ( JJ) =X40 (JJ) 

Y42 ( JJ) =Y40 (JJ) 

X43 ( JJ) =X40 (JJ) 

Y43 ( JJ) =Y40 (JJ) 

X44 ( JJ) =X40 (JJ) 

Y44 ( JJ) =Y40 (JJ) 

X46 (JJ) =X45 (JJ) 

Y46(JJ)=Y45(JJ) 


GEN82570 

GEN82580 

GEN82590 

GEN82600 

GEN82610 

GEN82620 

GEN82630 

GEN82640 

GEN82650 

GEN82660 

GEN82670 
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GEN82690 

GEN82700 

GEN82710 

GEN82720 

GEN82730 

GEN82740 

GEN82750 

GEN82760 

GEN82770 

GEN82780 
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GEN82820 

GEN82830 

GEN82840 
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GEN82950 

GEN82960 
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GEN83000 
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GEN83030 

GEN83040 

GEN83050 

GEN83060 

GEN83070 

GEN83080 
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GEN83120 
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GEN83140 

GEN83150 

GEN83160 

GEN83170 

GEN83180 

GEN83190 

GEN83200 
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X47 (JJ)=X45(JJ) 

GEN83210 




Y47(JJ)=Y45(JJ) 

GEN83220 




X48 (JJ)-X45 (JJ) 

GEN83230 




Y48 (JJ)-Y45 (JJ) 

GEN83240 

: - 



X49(JJ)-X45(JJ) 

GEN83250 




Y49(JJ)-Y45(JJ) 

GEN83260 





GEN83270 




ENDIF 

GEN83280 





GEN83290 

_ 



IF (JJ.EQ. 1) R=R-AA 

GEN83300 




IF (JJ.EQ.2) R=R-D/3 . 0 

GEN83310 




IF (JJ.EQ. 3) R=R-D/3 . 0 

GEN83320 

, . 



IF (JJ.EQ. 4) R=R-D / 3 . 0 

GEN83330 

I i 



IF (JJ.EQ. 5) R=R+BB 

GEN83340 




IF (JJ.EQ. 6) R=R-BB+CC 

GEN83350 





GEN83360 


15 

CONTINUE 

GEN83370 





GEN83380 





GEN83390 

^ ■ i 


RETURN 

GEN83400 



END 

GEN83410 





GEN83420 


c 


GEN83430 


c 

★ 

* 

GEN83440 

r-: 

c 

* 

THIS SUBROUTINE CALCULATES THE POINT COORDINATES * 

GEN83450 


c 

* 

OF THE INTAKE PORT * 

GEN83460 


c 

* 

* 

GEN83470 


c 

★ it it if ic ★ ★ ★ ★ ★ ★ it ★ if it ★ ★ ★ ★ ★ ★ ★ ★ * * ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ * if * * if * if ★ ★ ★ ~k it it ★ it it it it it it it ★ it "to 

GEN83480 

— 




GEN83490 



SUBROUTINE INTKE (EE, RR, R, PI, RINPT, TINPT, AA, BB, CC,D, DEPTH, 

GEN83500 



# 

TRANS, PHI IIP, PHI2 IP, PHI20D, PHI 1NW, LINPT, WINPT) 

GEN83510 





GEN83520 





GEN83530 



COMMON / PORT / XI (7) , Y1 (7) , Z1 (7) , X2 (7) , Y2 <7) , Z2 (7) ,X3 (7) , Y3 (7) , 

GEN83540 

. • 


# 

Z3 (7 ) , X4 (7 ) , Y4 (7) , Z4 (7) , X5 (7 ) , Y5 (7 ) , Z5 (7 ) , X6 (7) , Y6 (7) , Z6 (7) , 

GEN83550 

— 


# 

X7 (7) ,Y7 (7) ,Z7 (7) ,X8 (7) ,Y8 (7) , Z8 (7) ,X9 (7) ,Y9(7) ,Z9(7) , 

GEN83560 


# XI 0 (7) , Y10 (7) , Z10 (7) , Xll (7) , Yll (7) , Zll (7) , X12 (7) , Y12 (7) , Z12 (7) , GEN83570 

# X13 (7) , Y13 (7) , Z13 (7) , XI 4(7) ,Y14(7) , Z14 (7) ,X15 (7) ,Y15 (7) , Z15 (7) ,GEN83580 

# X16(7) , Y16 (7) , Z16 (7) , X17 (7) ,Y17 (7) , Z17 (7) ,X18 (7) , Y18 (7) , Z18 (7) ,GEN83590 

# X19(7) ,Y19(7) , Z19 (7 ) ,X20(7) , Y20 (7 ) , Z20(7),X21(7),Y21(7),Z21 (7) , GEN83600 

# X22 (7) ,Y22 (7) f Z22 (7) ,X23 (7) , Y23 (7) , Z23 (7) , X24 (7) , Y24 (7) , Z24 (7) ,GEN83610 

# X25 (7) , Y25 (7) , Z25 (7) ,X26 (7) , Y26 (7) , Z26 (7) ,X27 (7) ,Y27 (7) ,Z27 (7) ,GEN83620 

# X28 (7) , Y28 (7) , Z28 (7) ,X29 (7) , Y29 (7) , Z29 (7) ,X30 (7) ,Y30 (7) , Z30 (7) ,GEN83630 

# X31 (7) ,Y31 (7) , Z31 (7) , X32 (7) , Y32 (7) , Z32 (7) , X33 (7) ,Y33 (7) , Z33 (7) , GEN83640 

# X34 (7) , Y34 (7) , Z34 (7) ,X35 (7) , Y35 (7) , Z35 (7) , X36 (7) , Y36 (7) , Z36 (7 ) , GEN83650 

# X37 (7) , Y37 (7) ,Z37 (7) ,X38 (7) ,Y38 (7) ,Z38 (7) , X39 (7) , Y39 (7) , Z39 (7 ) , GEN83660 

# X40 (7) , Y40 (7) , Z40 (7) , X41 (7) , Y41 (7) , Z41 (7) ,X42 (7) ,Y42 (7) ,Z42 (7) ,GEN83670 

# X43 (7) , Y43 (7) , Z43 (7) , X44 (7) , Y44 (7) , Z44 (7) , X45 (7) , Y45 (7) , Z45 (7) ,GEN83680 

# X4 6(7) , Y46 (7) ,Z46(7) , X47 (7) ,Y47 (7) ,Z47 (7) ,X48 (7) , Y48 (7) , Z48 (7) ,GEN83690 

# X49 (7 ) , Y49 (7) , Z49 (7 ) , X50 (7 ) ,Y50(7) ,Z50(7) ,X51(7) , Y51 (7 ) , Z51 (7 ) , GEN83700 

# X52 (7) , Y52 (7) ,ZS2 (7) ,X53 (7) , Y53 (7) , Z53 (7) GEN83710 


REAL LINPT 

XXX (Z, BETA) =Z*COS (BETA) 

YYY (ZZ, BETA) =ZZ*SIN (BETA) 

TRANS=ABS (TRANS) 

R=RR-EE +D +AA- TRANS 
PHI= (PHI1IP+PHI2IP ) /2 .0 
PHIZ=PHI*180 .0/PI 
DROP=R*SIN (PHI) 


GEN83720 
GEN83730 
GEN837 40 
GEN83750 
GEN83760 
GEN83770 
GEN83780 
GEN83790 
GEN83800 
GEN83810 
GEN83820 
GEN83830 
GEN83840 
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YCNTR=TRANS+DROP 
YYONE=R*SIN (PHI IIP) 

YYTWO=R*SIN (PHI2IP) 

YYTRE-YYTWO-YYONE 

DO 15 JJ-1,7 

IF ( (JJ.EQ. 1) .OR. (JJ.EQ.2) ) THEN 

Y1 ( JJ) =YCNTR-RINPT 
Z1 (JJ) =DEPTH/2 . 0 

XI ( JJ) =SQRT (R**2- (Y1 (JJ) -TRANS) **2) 

Y2 ( JJ) =YCNTR-RINPT*SIN ( 60 . 0*PI/180 . 0) 

Z2 ( JJ) -DEPTH/2 . 0+RINPT*COS (60.0*PI/180.0) 
X2 (JJ) =SQRT (R**2- (Y2 (JJ) -TRANS) **2) 

Y3 (JJ) =YCNTR-RINPT*SIN (30 . 0*PI/180 .0) 

Z3 (JJ) =DEPTH/2 . 0+RINPT*COS (30 . 0*PI/180 .0) 
X3 ( JJ) =SQRT (R**2- (Y3 (JJ) -TRANS) **2) 

Y4 ( JJ) =YCNTR 

Z4 ( JJ) =DEPTH/2 . 0+RINPT 

X4 (JJ) -SQRT (R**2- (Y4 (JJ) -TRANS) **2) 

Y5 (JJ) =YCNTR+RINPT*SIN (30 . 0*PI/180 .0) 

Z5 (JJ) -DEPTH/2 . 0+RINPT*COS (30 . 0*PI/180 . 0) 
X5 ( JJ) =SQRT (R**2- (Y5 (JJ) -TRANS) **2) 

Y6 (JJ) =YCNTR+RINPT*SIN (60 . 0*PI/180 .0) 

Z6 ( JJ) =DEPTH/2 . 0+RINPT*COS (60 . 0*PI/180 .0) 
X6 (JJ) =SQRT (R**2- (Y6 (JJ) -TRANS) **2) 

Y7 ( JJ) =YCNTR+RINPT 
Z7 (JJ)=DEPTH/2 .0 

X7 (JJ) =SQRT (R**2- (Y7 ( JJ) -TRANS) **2) 

Y8 (JJ) =YCNTR+RINPT*SIN (60 . 0*PI/180 . 0) 

Z8 ( JJ) =DEPTH/2 . 0-RINPT*COS ( 60 . 0*PI/180 . 0) 
X8 ( JJ) =SQRT (R**2- (Y8 ( JJ) -TRANS) **2) 

Y9 ( JJ) =YCNTR+RINPT*SIN (30 . 0*PI/180 . 0) 

Z9 (JJ) =DEPTH/2 . 0-RINPT*COS (30 . 0*PI/180 . 0) 
X9 (JJ) -SQRT (R**2- (Y9 (JJ) -TRANS) **2) 

Y10 ( JJ) —YCNTR 

Z10 ( JJ) -DEPTH/2 . 0-RINPT 

X10 (JJ) =SQRT (R**2- (Y10 (JJ) -TRANS) **2) 

Yll ( JJ) =YCNTR-RINPT*SIN (30 . 0*PI/180 . 0) 

Zll (JJ) -DEPTH/2 . 0-RINPT*COS (30.0*PI/180.0) 
Xll (JJ) -SQRT (R**2- (Yll (JJ) -TRANS) **2) 

Y12 ( JJ) =YCNTR-RINPT*SIN (60 .0*P 1/180.0) 

Z12 (JJ) =DEPTH/2 .0-RINPT*COS (60 .0*PI/180.0) 
X12 ( JJ) =SQRT (R**2- (Y12 (JJ) -TRANS) **2) 

ELSE IF (JJ.GT.2) THEN 

Y1 ( JJ) =YCNTR-LINPT/2 . 0 
Z1 ( JJ) =DEPTH/2 . 0 

XI (JJ) =SQRT (R**2- (Y1 (JJ) -TRANS) **2) 

Y2 ( JJ) =YCNTR-LINPT/2 . 0 


GEN83850 

GEN838 60 

GEN83870 

GEN83880 

GEN838 90 

GEN83900 

GEN83910 

GEN83920 

GEN83930 

GEN83940 

GEN83950 

GEN83960 

GEN83970 

GEN83980 

GEN83990 

GEN84000 

GENS 40 10 

GEN84020 

GEN84030 

GEN84040 

GEN84050 

GEN84060 

GEN84070 

GEN84080 

GEN84090 

GEN84100 

GEN84110 

GEN84120 

GEN84130 

GEN84140 

GEN84150 

GEN84160 

GEN84170 

GEN84180 

GEN84190 

GEN84200 

GEN84210 

GEN84220 

GEN84230 

GEN84240 

GEN84250 

GEN84260 

GEN84270 

GEN84280 

GEN84290 

GEN84300 

GEN84310 

GEN84320 

GEN84330 

GEN84340 

GEN84350 

GEN84360 

GEN84370 

GEN84380 

GEN84390 

GEN84400 

GEN84410 

GEN84420 

GEN84430 

GEN84440 

GEN84450 

GEN84460 

GEN84470 

GEN84480 
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Z2 ( JJ) =DEPTH/2 . O+WINPT/2 . 0 

X2 ( JJ) -SQRT (R**2- (Y2 (JJ) -TRANS) **2) 

Y3 ( JJ) -YCNTR-LINPT/4 . 0 

Z3 ( JJ) -DEPTH/2 . O+WINPT/2 . 0 

X3 ( JJ) -SQRT (R**2- (Y3 ( JJ) -TRANS) **2) 

Y4 ( JJ) —YCNTR 

Z4 ( JJ) -DEPTH/2 . O+WINPT/2 . 0 

X4 ( JJ) -SQRT (R**2- (Y4 ( JJ) -TRANS) **2) 

Y5 ( JJ) -YCNTR+LINPT/4 . 0 

Z5 ( JJ) -DEPTH/2 . O+WINPT/2 . 0 

X5 (JJ) -SQRT (R**2- (Y5 ( JJ) -TRANS) **2) 

Y6 ( JJ) -YCNTR+LINPT/2 . 0 

Z6 ( JJ) -DEPTH/2 . O+WINPT/2 . 0 

X6 ( JJ) -SQRT (R**2- (Y6 ( JJ) -TRANS) **2) 

Y7 ( JJ) -YCNTR+LINPT/2 . 0 
Z7 (JJ) -DEPTH/2 .0 

X7 ( JJ) —SQRT (R**2- (Y7 (JJ) -TRANS) **2) 

Y8 ( JJ) -YCNTR+LINPT/2 . 0 

Z8 ( JJ) -DEPTH/2 . O-WINPT/2 . 0 

X8 ( JJ) -SQRT (R**2- (Y8 (JJ) -TRANS) **2) 

Y9 (JJ) -YCNTR+LINPT/4 . 0 

Z9 ( JJ) -DEPTH/2 . O-WINPT/2 . 0 

X9 (JJ) -SQRT (R**2- (Y9 (JJ) -TRANS) **2) 

Y10 (JJ) -YCNTR 

Z10 ( JJ) -DEPTH/2 . O-WINPT/2 . 0 

X10 (JJ) -SQRT (R**2- (Y10 ( JJ) -TRANS) **2) 

Yll (JJ) -YCNTR-LINPT/4 . 0 

Zll ( JJ) -DEPTH/2 . O-WINPT/2 . 0 

Xll ( JJ) -SQRT (R**2- (Yll ( JJ) -TRANS) **2) 

Y12 ( JJ) -YCNTR-LINPT/2 . 0 

Z12 ( JJ) -DEPTH/2 . O-WINPT/2 . 0 

X12 (JJ) -SQRT (R**2- (Y12 (JJ) -TRANS) **2) 

ENDIF 

X13 ( JJ) -XXX (R, PH I IIP) 

Y13 ( JJ) — YYY (R, PH I IIP) +TRANS 
Z13 ( JJ) =3 . 0*DEPTH/4 . 0 

X14 ( JJ) -X13 (JJ) 

Y14 ( JJ) -Y13 (JJ) 

Z14 (JJ) -DEPTH/2.0 

X15 ( JJ) -X13 ( JJ) 

Y15 (JJ) -Y13 ( JJ) 

Z15(JJ) -DEPTH/4.0 

IF ( (JJ.EQ.l) .OR. (JJ.EQ.2) ) THEN 

Y17 (JJ)=Y3(JJ)-TINPT*SIN (30. 0*PI/ 180.0) 
Z17 (JJ) — Z3 ( JJ) +TINPT*COS (30.0*PI/180.0) 
X17 ( JJ) -SQRT (R**2- (Y17 ( JJ) -TRANS) **2) 

Y18 ( JJ) -YCNTR 


GEN84490 

GEN84500 

GEN84510 

GEN84520 

GEN84530 

GEN84540 

GEN84550 

GEN84560 

GEN84570 

GEN84580 

GEN84590 

GEN84600 

GEN84610 

GEN84620 

GEN84630 

GEN84640 

GEN84650 

GEN84660 

GEN84670 

GEN84680 

GEN84690 

GEN84700 

GEN84710 

GEN84720 

GEN84730 

GEN84740 

GEN84750 

GEN84760 

GEN84770 

GEN84780 

GEN84790 

GEN84800 

GEN84810 

GEN84820 

GEN84830 

GEN84840 

GEN84850 

GEN84860 

GEN84870 

GEN84880 

GEN84890 

GEN84900 

GEN84910 

GEN84920 

GEN84930 

GEN84940 

GEN84950 

GEN84960 

GEN84970 

GEN84980 

GEN84990 

GEN85000 

GEN85010 

GEN85020 

GEN85030 

GEN85040 

GEN85050 

GEN85060 

GEN85070 

GEN85080 

GEN85090 

GEN85100 

GEN85110 

GEN85120 
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Z18 ( JJ) -Z4 ( JJ) +TINPT 

X18 ( JJ) -SQRT (R**2- (Y18 ( JJ) -TRANS) **2) 

Y19 (JJ) -Y5 (JJ) +TINPT*SIN (30.0*PI/180.0) 
Z19 (JJ)-Z5 (JJ) +TINPT*COS (30 .0*PI/180 .0) 
X19 (JJ) -SQRT (R**2- (Y19 (JJ) -TRANS) **2) 

ELSE IF (JJ.GT.2) THEN 

Y17 ( JJ) =Y3 ( JJ) 

Z17 ( JJ) -Z3 ( JJ) +TINPT 
X17 ( JJ) -X3 ( JJ) 

Y18 (JJ)-YCNTR 

Z18 ( JJ) — Z4 ( JJ) +TINPT 

X18 ( JJ) =X4 (JJ) 

Y19 ( JJ) — Y5 (JJ) 

Z19 ( JJ) =Z5 (JJ) +TINPT 
Xl9 ( JJ) =X5 ( JJ) 

END IF 

X16 ( JJ) =X2 ( JJ) 

Y16 ( JJ) — Y2 (JJ) 

Z16 (JJ) =Z17 (JJ) 

Y20 ( JJ) — YCNTR+RINPT+TINPT 

X20 (JJ) -SQRT (R**2- (Y20 (JJ) -TRANS) **2) 

Z20 ( JJ) =Z19 ( JJ) 

X21 ( JJ) =X20 ( JJ) 

Y21 ( JJ) =Y20 (JJ) 

Z21 (JJ) -DEPTH/2.0 

IF ( (JJ.EQ.l) .OR. (JJ.EQ.2) ) THEN 

Y23 ( JJ) =Y9 (JJ) +TINPT*SIN (30. 0*P 1/180.0) 
Z23 ( JJ) =Z9 (JJ) -TINPT*COS (30 . 0*PI/180 . 0) 
X23 (JJ) -SQRT (R**2- (Y23 ( JJ) -TRANS) **2) 

Y24 (JJ) -YCNTR 

Z24 ( JJ) -Z10 (JJ) -TINPT 

X24 (JJ) -SQRT (R**2- (Y24 (JJ) -TRANS) **2) 

Y25 ( JJ) —Yll ( JJ) -TINPT*SIN (30 . 0*PI/180 . 0) 
Z25 ( JJ) -Zll ( JJ) -TINPT*COS (30 . 0*PI/180 . 0) 
X25 (JJ) -SQRT (R**2- (Y25 (JJ) -TRANS) **2) 

ELSE IF (JJ.GT.2) THEN 

Y23 ( JJ) =Y9 ( JJ) 

Z23 (JJ) -Z9 ( JJ) -TINPT 
X23 ( JJ) =X9 ( JJ) 

Y24 (JJ) -YCNTR 

Z24 ( JJ) -Z10 ( JJ) -TINPT 

X24 (JJ)=X10 (JJ) 

Y25 ( JJ) -Yll (JJ) 

Z25 (JJ) -Zll (JJ) -TINPT 
X25 (JJ)-Xll (JJ) 

END IF 


GEN85130 
GEN85140 
GEN85150 
GEN85160 
GEN85170 
GEN85180 
GEN85190 
GEN85200 
GEN85210 
GEN85220 
GEN85230 
GEN85240 
GEN85250 
GEN85260 
GEN85270 
GEN85280 
GEN85290 
GEN85300 
GEN85310 
GENS 5 320 
GEN85330 
GEN85340 
GEN85350 
GEN85360 
GEN85370 
GEN85380 
GEN85390 
GEN85400 
GEN85410 
GEN85420 
GEN85430 
GEN85440 
GEN85450 
GEN85460 
GEN85470 
GEN85480 
GEN85490 
GEN85500 
GEN85510 
GEN85520 
GEN85530 
GEN85540 
GEN85550 
GEN85560 
GEN85570 
GEN85580 
GEN85590 
GEN85600 
GEN85610 
GEN85620 
GEN85630 
GEN85640 
GEN85650 
GEN85660 
GEN85670 
GEN85680 
GEN85690 
GEN85700 
GEN85710 
GEN85720 
GEN85730 
GEN85740 
GEN85750 
GEN85760 
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X22 (JJ)=X20 (JJ) 

GEN85770 

GEN85780 

Y22 ( JJ) =Y20 (JJ) 

GEN85790 

Z22 ( JJ) =Z23 ( JJ) 

GEN85800 

X26 (JJ)»X12 (JJ) 

GEN85810 

GEN85820 

Y26 ( JJ) =Y12 ( JJ) 

GEN85830 

Z26 ( JJ) =Z25 (JJ) 

GEN85840 

IF ( (JJ.EQ.l) .OR. (JJ.EQ.2) .OR. (JJ.EQ.5) .OR. (JJ.EQ.6) . 

GEN85850 

GEN85860 

OR. (JJ.EQ.7) ) THEN 

GEN85870 


GEN85880 

X27 (JJ) =X13 (JJ) 

GEN858 90 

Y27 (JJ) =Y13 (JJ) 

GEN85900 

Z27 ( JJ) =0 . 0 

GEN85910 

X28 (JJ)=X16 (JJ) 

GEN85920 

GEN85930 

Y28 (JJ)=Y16(JJ) 

GEN85940 

Z28 (JJ)=0.0 

GEN85950 

. 

GEN85960 

Y29 (JJ) =Y17 (JJ) 

GEN85970 

X29 (JJ) =X17 ( JJ) 

GEN85980 

Z29 ( JJ) =0 . 0 

GEN85990 

Y30 (JJ)=Y18 (JJ) 

GEN86000 

GEN86010 

X30 (JJ)=X18 (JJ) 

GEN86020 

Z30 (JJ)=0.0 

GEN86030 

Y31 (JJ)-Y19 (JJ) 

GEN86040 

GEN86050 

X31 ( JJ) =X19 ( JJ) 

GEN86060 

Z31 (JJ)=0.0 

GEN86070 

X32 (JJ) =X20 (JJ) 

GEN86080 

GEN86090 

Y32 (JJ) =Y20 (JJ) 

GEN86100 

Z32 ( JJ) =0 . 0 

GEN86110 

X33 (JJ) =X22 (JJ) 

GEN86120 

GEN86130 

Y33 ( JJ) =Y22 (JJ) 

GEN86140 

233 (JJ) =DEPTH 

GEN86150 


GEN86160 

Y34 (JJ) =Y23 (JJ) 

GEN86170 

X34 (JJ) =X23 (JJ) 

GEN86180 

Z34 (JJ) =DEPTH 

GEN86190 

Y35 (JJ) =Y24 (JJ) 

GEN86200 

GEN86210 

X35 ( JJ) =X24 (JJ) 

GEN86220 

Z35 ( JJ) =DEPTH 

GEN86230 

X36 ( JJ) =X25 (JJ) 

GEN86240 

GEN86250 

Y36 ( JJ) =Y25 ( JJ) 

GEN86260 

Z36 (JJ) =DEPTH 

GEN86270 

X37 (JJ) =X26 (JJ) 

GEN86280 

GEN86290 

Y37 (JJ) =Y26 (JJ) 

GEN86300 

Z37 (JJ) =DEPTH 

GEN86310 

X38 (JJ) =X13 (JJ) 

GEN86320 

GEN86330 

Y38 (JJ)=Y13 (JJ) 

GEN86340 

Z38 ( JJ) =DEPTH 

GEN86350 

ENDIF 

GEN86360 

GEN86370 

IF( (JJ.NE.3) .OR. (JJ.NE.4) ) THEN 

GEN86380 

GEN86390 


GEN86400 
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X49 (JJ) =XXX(R, PHI1NW) 

Y49 ( JJ) =YYY (R, PHI1NW) +TRANS 
Z49 (JJ)=DEPTH 

IF (JJ.EQ.l) THEN 

PHI12-PHI1NW-PHI2IP 
PHI13=PHI2IP+1 . 0*PHI12/3 . 0 
PHI14=PHl2lP+2 .0*PHI12/3.0 

ELSE IF (JJ.GT.l) THEN 

PHI 12-PHI 1NW-ATAN ( (Y21 (JJ) -TRANS) /X21 ( JJ) ) 
PHI13=PHIlNW-2 . 0*PHI12/3. 0 
PHI14=PHI1NW-1 . 0*PHI12/3. 0 

ENDIF 


X39 (JJ) =XXX (R, PHI13) 

Y39 (JJ) =YYY (R, PHI13) +TRANS 
Z39 (JJ) =DEPTH 

X40 (JJ) =X39 (JJ) 

Y40 ( JJ) =Y39 ( JJ) 

Z40 ( JJ) =3 . 0*DEPTH/4 . 0 

X41 ( JJ) =X39 (JJ) 

Y41 (JJ) =Y39 (JJ) 

Z41 (JJ) =DEPTH/2 .0 

X42 (JJ) =X39 (JJ) 

Y42 ( JJ) =Y39 ( JJ) 

Z42 (JJ) =DEPTH/4 . 0 

X43 (JJ) =X39 (JJ) 

Y43 (JJ) =Y39 (JJ) 

Z43 ( JJ) =0 . 0 

X44 (JJ) =XXX (R, PHI14) 

Y44 (JJ) =YYY (R, PHI14) +TRANS 
Z44 (JJ) =DEPTH 

X45 (JJ) =X44 (JJ) 

Y45 (JJ)=Y44 (JJ) 

Z45 (JJ) =3 . 0*DEPTH/4 . 0 

X46 ( JJ) =X44 (JJ) 

Y46 (JJ) =Y44 (JJ) 

Z46 ( JJ) =DEPTH/2 . 0 

X47 ( JJ) =X44 (JJ) 

Y47 ( JJ) =Y44 (JJ) 

Z47 ( JJ) =DEPTH/4 . 0 

X48 ( JJ) =X44 (JJ) 

Y48 (JJ) =Y44 (JJ) 

Z48 (JJ)=0 .0 

X50 ( JJ) =X49 (JJ) 

Y50 { JJ) =Y49 (JJ) 

Z50 (JJ) =3 . 0*DEPTH/4 . 0 

X51 ( JJ) =X49 (JJ) 

Y51 ( JJ) =Y49 ( JJ) 


GEN86410 

GEN86420 

GEN86430 

GEN86440 

GEN86450 

GEN86460 

GEN86470 

GEN86480 

GEN86490 

GEN86500 

GEN86510 

GEN86520 

GEN86530 

GEN86540 

GEN86550 

GEN86560 

GEN86570 

GEN86580 

GEN86590 

GEN86600 

GEN86610 

GEN86620 

GEN86630 

GEN86640 

GEN86650 

GEN86660 

GEN86670 

GEN86680 

GEN86690 

GEN96700 

GEN86710 

GEN86720 

GEN86730 

GEN86740 

GEN86750 

GEN86760 

GEN86770 

GEN86780 

GEN86790 

GEN86800 

GEN86810 

GEN86820 

GEN86830 

GEN86840 

GEN86850 

GEN86860 

GEN86870 

GEN86880 

GEN86890 

GEN86900 

GEN86910 

GEN86920 

GEN86930 

GEN86940 

GEN86950 

GEN86960 

GEN86970 

GEN86980 

GEN86990 

GEN87000 

GEN87010 

GEN87020 

GEN87030 

GEN87040 
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Z51 (JJ) =DEPTH/2 . 0 

X52 (JJ) =X49 (JJ) 

Y52 (JJ) -Y49 (JJ) 

Z52 ( JJ) =DEPTH/ 4 . 0 

X53 (JJJ-X49 (JJ) 

Y53 ( JJ) =Y49 (JJ) 

Z53 (JJ)=0.0 


ENDIF 


IF(JJ.EQ.l) 
IF (JJ.EQ.2) 
IF (JJ.EQ.3) 
IF (JJ.EQ. 4) 
IF (JJ.EQ. 5) 
IF (JJ.EQ. 6) 


R=R-AA 
R=R-D/3.0 
R=R-D/3 . 0 
R=R-D/3 . 0 
R=R+BB 
R=R-BB+CC 


15 CONTINUE 

RETURN 

END 


C * * 
C * THIS SUBROUTINE CALCULATES THE POINT COORDINATES * 
C * OF THE SPARK PLUG PORT * 
C * * 




SUBROUTINE SPRKPG . (EE, RR, R, PI, YONE, YTWO, PHIONE, PHITWO, RSP, IEND, 

# AA,BBB,CC,D, DEPTH, TRANS, REGION, ICHK) 

COMMON / PORT / XI (7 ) , Y1 ( 7 ) , Z1 (7 ) , X2 (7 ) , Y2 (7 ) , Z2 (7 ) , X3 (7 ) , Y3 ( 7 ) , 

# Z3(7),X4(7) ,Y4(7) ,Z4(7) , X5 (7) , Y5 (7) , Z5 (7) ,X6 (7) , Y6 (7) , Z6 (7) , 

# X7 (7) ,Y7 (7) ,Z7 (7) ,X8 (7) ,Y8 (7) , Z8 (7) ,X9 (7) ,Y9 (7) ,Z9 (7) , 

# X10 (7) , Y10 (7) ,Z10 (7) , Xll (7) , Yll (7) ,Zll (7) ,X12 (7) ,Y12 (7) ,Z12 (7) 

# X13 (7) , Y13 (7) , Z13 (7) ,X14 (7) , Y14 (7) ,Z14 (7) , X15 (7) , Y15 (7) ,Z15 (7) 

# X16 (7) ,Y16 (7) , Z16(7) ,X17 (7) , Y17 (7) ,Z17 (7) ,X18 (7) ,Y18 (7) ,Z18 (7) 

# X19 (7) , Y19 (7) , Z19 (7) ,X20 (7) , Y20 (7) , Z20 (7) ,X21 (7) , Y21 (7) ,Z21 (7) 

# X22 (7) , Y22 (7) , Z22 (7) ,X23 (7) , Y23 (7) , Z23 (7) ,X24 (7) ,Y24 (7) ,Z24 (7) 

# X25 (7) , Y25 (7) ,Z25 (7) ,X26 (7) , Y26 (7) , Z26 (7) ,X27 (7) ,Y27 (7) ,Z27 (7) 

# X28 (7) ,Y28 (7) , Z28 (7) ,X29 (7) ,Y29 (7) , Z29 (7) ,X30 (7) ,Y30 (7) , Z30 (7) 

# X31 (7) , Y31 (7) , Z31 (7) , X32 (7) , Y32 (7) , Z32 (7) ,X33 (7) , Y33 (7) , Z33 (7) 

# X34(7),Y34(7),z34(7),X35(7),Y35(7),Z35(7),X36(7),y36(7),Z36(7) 

# X37 (7) , Y37 (7) , Z37 (7) ,x38 (7) , Y38 (7) , Z38 (7) ,x39 (7) , Y39 (7) , Z39 (7) 

# X40 (7) ,Y40 (7) ,Z40 (7) ,X41 (7) ,Y41 (7) , Z41 (7) ,X42 (7) , Y42 (7) , Z42 (7) 

# X43 (7) , Y43 (7) , Z43 (7) , X44 (7 ) , Y44 (7 ) , Z44 (7) ,X45 (7) ,Y45 (7) ,Z45 (7) 

# X46 (7) , Y46 (7) , Z46 (7) ,X47 (7) , Y47 (7) ,Z47 (7) ,X48 (7) , Y48 (7) , Z48 (7) 

# X49 (7 ) , Y49(7) ,Z49 (7) ,X50 (7) ,Y50 (7) ,Z50 (7) ,X51 (7) , Y51 (7) ,Z51 (7) 

# X52 (7) ,Y52 (7) ,Z52 (7) ,X53 (7) ,Y53 (7) ,Z53(7) 

INTEGER REGION 

FINERX (GAMMA, RLAMB, FF) =EE*COS (3 . 0*GAMMA) +RR*COS (GAMMA) + 

# FF*COS (GAMMA+RLAMB) 

FINERY (GAMMA, RLAMB, FF) =EE*S IN ( 3 . 0 *GAMMA) +RR*S IN (GAMMA) + 

# FF * S IN { GAMMA+RLAMB ) 

XXX ( Z , BETA) =Z *COS (BETA) 

YYY (ZZ, BETA) =ZZ*SIN (BETA) 


GEN87050 
GEN87060 
GEN87070 
GEN87080 
GEN87090 
GEN87100 
GEN87110 
GEN87120 
GEN87130 
GEN87140 
GEN87150 
GEN87160 
GEN87170 
GEN87180 
GEN87190 
GEN87200 
GEN87210 
GEN87220 
GEN87230 
GEN87240 
GEN87250 
GEN87260 
GEN87270 
GEN87280 
GEN87290 
GEN87300 
GEN87310 
GEN87320 
GEN87330 
GEN87340 
GEN87350 
GEN87360 
GEN87370 
GEN87380 
GEN87390 
GEN87400 
GEN87410 
, GEN87420 
, GEN87430 
, GEN87440 
, GEN87450 
, GEN87460 
, GEN87470 
, GEN87480 
GEN87490 
GEN87500 
GEN87510 
GEN87520 
GEN87530 
GEN87540 
GEN87550 
GEN87560 
GEN87570 
GEN87580 
GEN87590 
GEN 8 7 600 
GEN87610 
GEN87620 
GEN87630 
GEN87640 
GEN87650 
GEN87660 
GEN87670 
GEN87680 
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BB=BBB 

GEN87690 

GEN87700 

TRANS-ABS (TRANS) 

GEN87710 

R=RR-EE+D+AA-TRANS 

GEN87720 

IF (REGION. EQ. 3) THEN 

GEN87730 

GEN87740 

PHIl=PI-PHIONE 

GEN87750 

GEN87760 

PHI2=PI-PHITW0 

GEN87770 

YONE=ABS (R*SIN (PHIl) ) 

GEN87780 

YTWO=ABS (R*SIN (PHI2 ) ) 

GEN87790 

WIDTH=YONE+YTWO 

GEN87800 

GEN87810 

TCKSP= ( -DEPTH/4 . 0-RSP) /2 . 0 

GEN87820 

YONE=YONE+TRANS 

GEN87830 

GEN87840 

YTWO-TRANS-YTWO 

GEN87850 

YCNTR= (YONE+YTWO) /2 . 0 

GEN87860 

ELSE IF (REGION. EQ. 2) THEN 

GEN87870 

GEN87880 

WIDTH=ABS (YTWO-YONE) 

GEN87890 

GEN87900 

TCKSP= (-DEPTH/4 . 0-RSP) /2 . 0 

GEN87910 

YCNTR= (YONE+YTWO) /2 . 0 

GEN87920 

GEN87930 

ENDIF 

GEN87940 

GEN87950 

DO 15 JJ=1, IEND 

GEN87960 

GEN87970 

IF (JJ.LT.6) THEN 

GEN87980 

GEN87990 

XI (JJ) — R 

GEN88000 

GEN88010 

Y1 ( JJ) =YCNTR-RSP 

GEN88020 

X2 ( JJ) =-R 

GEN88030 

GEN88040 

Y2 ( JJ) =YCNTR-RSP *COS (P I / 4 . 0 ) 

GEN88050 

GEN88060 

X3 ( JJ) =-R 

GEN88070 

Y3 ( JJ) =YCNTR 

GEN88080 

X4 (JJ) =-R 

GEN88090 

GEN88100 

Y4 (JJ)=YCNTR+RSP*COS (PI/4.0) 

GEN88110 

GEN88120 

X5 ( JJ) =-R 

GEN88130 

Y5 ( JJ) =YCNTR+RSP 

GEN88140 

X6 ( JJ) =-R 

GEN88150 

GEN88160 

Y6 ( JJ) =YCNTR+RSP*COS (PI/ 4.0) 

GEN88170 

X7 ( JJ) =-R 

GEN88180 

GEN88190 

Y7 ( JJ) =YCNTR 

GEN88200 

X8 ( JJ) =-R 

GEN88210 

GEN88220 

Y8 (JJ) =YCNTR-RSP *COS (PI/4.0) 

GEN88230 

X9 ( JJ) =-R 

GEN88240 

GEN88250 

Y9 (JJ) =Y8 (JJ) -TCKSP*COS (PI/4.0) 

GEN88260 

X10 ( JJ) =-R 

GEN88270 

GEN88280 

Y10 ( JJ) =Y1 { JJ) -TCKSP 

GEN88290 

XI 1 ( JJ) =-R 

GEN88300 

GEN88310 

Yll ( JJ) =Y2 ( JJ) -TCKSP*COS (PI/4 . 0) 

GEN88320 
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X12 (JJ)=-R 
Y12 (JJ)-Y3 (JJ) 

X13(JJ) — R 

Y13 < JJ) -Y4 ( JJ) +TCKSP*COS (PI/4.0) 

IF (REGION. EQ. 2) THEN 

X14 ( JJ) =-R 

Y14 ( JJ) =Y5 (JJ) +TCKSP 

ENDIF 

X15 ( JJ) =-R 

Y15 ( JJ) =Y6 (JJ) +TCKSP*COS (PI/4.0) 

X16 ( JJ) =-R 
Y16 ( JJ) =Y7 (JJ) 

X17 ( JJ) =-R 

Y17 ( JJ) =YCNTR-WIDTH/2 . 0 

X18 ( JJ) **-R 
Y18 (JJ) =Y17 (JJ) 

X19 (JJ) — R 
Y19 ( JJ) =Y17 ( JJ) 

X20 ( JJ) =-R 
Y20 (JJ) =Y12 (JJ) 

IF (REGION. EQ. 3) THEN 

X21 ( JJ) =XXX (R, PHIONE) 

Y21 ( JJ) =YYY (R, PHIONE) +TRANS 

X22 ( JJ) =XXX (R, PHIONE) 

Y22 ( JJ) =YYY (R, PHIONE) +TRANS 

X23 < JJ) =XXX (R, PHIONE) 

Y23 ( JJ) =YYY (R, PHIONE) +TRANS 

X14 (JJ) =-R 

Y14 ( JJ) = ( Y5 ( JJ) +Y22 ( JJ) ) /2 . 0 
ELSE IF (REGION. EQ. 2) THEN 
X21 ( JJ) =-R 

Y21 ( JJ) =YCNTR+WIDTH/2 . 0 

X22 ( JJ) =-R 
Y22 ( JJ) =Y21 (JJ) 

X23 ( JJ) =-R 
Y23 ( JJ) =Y21 (JJ) 

ENDIF 

X24 ( JJ) =-R 
Y24 (JJ)=Y16 (JJ) 

ELSE IF (JJ.GT.5) THEN 


GEN88330 
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GEN88480 
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GEN88550 
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GEN88580 

GEN88590 

GEN88600 

GEN88610 

GEN88620 

GEN88630 

GEN88640 

GEN88650 

GEN88660 

GEN88670 

GEN88680 

GEN88690 

GEN88700 

GEN88710 

GENS 8 720 

GEN88730 
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GEN88810 

GEN88820 
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CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 

CALL 


YALPSL <EE,RR,Y1 (JJ-1) , ICHK, ALPHA1) 
THTASL (EE, RR, PI, ALPHA1, THETA1) 

YALPSL (EE, RR, Y2 (JJ-1) , ICHK, ALPHA2) 
THTASL (EE, RR, PI, ALPHA2, THETA2 ) 

YALPSL (EE, RR, Y3 (JJ-1) , ICHK, ALPHA3) 
THTASL (EE, RR, PI, ALPHA3, THETA3) 

YALPSL (EE, RR, Y4 (JJ-1) , ICHK, ALPHA4) 
THTASL (EE, RR, PI, ALPHA4 , THETA4) 

YALPSL (EE, RR, Y5 (JJ-1) , ICHK, ALPHA5) 
THTASL (EE, RR, PI, ALPHA5, THETA5) 

YALPSL (EE, RR, Y6 (JJ-1) , ICHK, ALPHA6) 
THTASL (EE, RR, PI, ALPHA6, THETA6) 

YALPSL (EE, RR, Y8 (JJ-1) , ICHK, ALPHA8) 
THTASL (EE, RR, PI, ALPHA8, THETAS) 

YALPSL (EE, RR, Y9 (JJ-1) , ICHK, ALPHA9) 
THTASL (EE, RR, PI, ALPHA9, THETA9) 

YALPSL (EE, RR, Y10 (JJ-1) , ICHK,ALPH10) 
THTASL (EE, RR, PI, ALPH10 , THET10 ) 

YALPSL (EE, RR, Y13 (JJ-1) , ICHK, ALPH13) 
THTASL (EE, RR, PI, ALPH13, THET13) 

YALPSL (EE, RR, Y14 (JJ-1) , ICHK,ALPH14) 
THTASL (EE, RR, PI, ALPH1 4 , THET14 ) 

YALPSL (EE, RR, Y17 (JJ-1) , ICHK,ALPH17) 
THTASL (EE, RR, PI, ALPH17, THET17) 

YALPSL (EE, RR, Y21 (JJ-1) , ICHK, ALPH21) 
THTASL (EE, RR, PI, ALPH21, THET21) 

XI ( JJ) =-FINERX (ALPHA1, THETA1, BBB) 

Y1 (JJ) =Y1 (JJ-1) 

X2 (JJ) =-F INERX ( ALPHA2 , THETA2 , BBB ) 

Y2 ( JJ) =Y2 (JJ-1) 

X3 ( JJ) =-F INERX (ALPHA3, THETA3, BBB) 

Y3 ( JJ) =Y3 (JJ-1) 

X4 ( JJ) =-F INERX (ALPHA4 , THETA4, BBB) 

Y4 ( JJ) =Y4 (JJ-1) 

X5 ( JJ) =-F INERX (ALPHAS, THETA5, BBB) 

Y5 (JJ) =Y5 (JJ-1) 

X6 ( JJ) =-FINERX (ALPHA6, THETA6, BBB) 

Y6 (JJ) =Y6 (JJ-1) 

X7 ( JJ) =-FINERX (ALPHA3, THETA3, BBB) 
Y7 ( JJ) =Y7 (JJ-1) 

X8 ( JJ) =-FINERX (ALPHA8 , THETA8 , BBB) 
Y8 (JJ) =Y8 (JJ-1) 

X9 ( JJ) =-FINERX (ALPHA9, THETA9, BBB) 
Y9 (JJ) =Y9 (JJ-1) 

X10 ( JJ) =-FINERX (ALPH10 , THET10, BBB) 
Y10 ( JJ) =Y10 (JJ-1) 

Xll (JJ) =-FINERX (ALPHA9, THETA9, BBB) 
Yll (JJ) =Y9 (JJ) 

X12 ( JJ) =-F INERX (ALPHA3, THETA3, BBB) 

Y12 (JJ) =Y3 ( JJ) 


GEN88970 
GEN88980 
GEN88990 
GEN89000 
GEN89010 
GEN89020 
GEN89030 
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GEN89050 
GEN89060 
GEN89070 
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GEN89110 
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GEN89130 
GEN89140 
GEN89150 
GEN89160 
GEN89170 
GEN89180 
GEN89190 
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GEN89210 
GEN89220 
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GENS 9 4 60 
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X13 (JJ) =-FINERX (ALPH13, THET13, BBB) 
Y13(JJ)=Y13(JJ-1) 

X14 ( JJ) =- FINERX (ALPH14, THET14, BBB) 
Y14 ( JJ) =Y14 ( JJ-1) 

X15 ( JJ) =-FINERX (ALPH13, THET13, BBB) 

Y15 (JJ) =Y13 (JJ) 

XI 6 ( JJ) =-FINERX (ALPHA3, THETA3, BBB) 

Y16 ( JJ) =Y7 (JJ) 

X17 ( JJ) =-FINERX (ALPH17, THET17, BBB) 

Y17 ( JJ) =Y17 (JJ-1) 

X18 (JJ) =-FINERX (ALPH17 , THET17, BBB) 
Y18 (JJ) =Y17 (JJ) 

X19 (JJ) =-FINERX (ALPH17 , THET17, BBB) 
Y19 (JJ)=Y17 (JJ) 

X20 ( JJ) =-FINERX (ALPHA3, THETA3, BBB) 
Y20 (JJ)=Y3 (JJ) 

IF (JJ.EQ.6) DD=BB 
IF (JJ.EQ.7) DD=CC-BB 

IF (REGION. EQ. 3) THEN 

X2 1 ( J J) =-FINERX ( ALPH2 1 , THET2 1 , BBB) 

Y21 ( JJ) =Y2 1 (JJ-1) +DD*SIN (PI-PHIONE) 

ELSE IF (REGION. EQ. 2) THEN 

X21 (JJ) =-FINERX (ALPH21, THET21 , BBB) 

Y21 (JJ) =Y21 (JJ-1) 


END IF 


X22 ( JJ) =-FINERX (ALPH21, THET21, BBB) 
Y22 ( JJ) =Y2 1 (JJ) 

X2 3 ( J J ) =-F INERX (ALPH2 1 , THET2 1 , BBB) 
Y23 (JJ) =Y21 (JJ) 

X2 4 ( J J ) =-F INERX ( ALPHA3 , THETA3 , BBB ) 
Y24 (JJ) =Y3 (JJ) 

IF (JJ.EQ.6) BBB=CC 
IF (JJ.EQ.7) BBB=BB 


ENDIF 

X25 ( JJ) =X19 (JJ) 
Y25 ( JJ) =Y19 (JJ) 
X26 (JJ) =X20 (JJ) 
Y26 ( JJ) =Y20 (JJ) 
X27 ( JJ) =X21 (JJ) 
Y27 ( JJ) =Y21 (JJ) 
X28 ( JJ) =X23 ( JJ) 
Y28 ( JJ) =Y23 (JJ) 
X29 ( JJ) =X24 ( JJ) 
Y29 ( JJ) =Y24 (JJ) 


GEN89610 
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GEN89780 
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X30 (JJ)=X17 (JJ) 


GEN90250 




Y30 ( JJ) =Y17 (JJ) 


GEN90260 






GEN90270 




Zl(JJ) “DEPTH/2.0 


GEN90280 




Z2 ( JJ) -DEPTH/2 . 0-RSP*SIN (PI/4.0) 


GEN90290 

— 



Z3 (JJ) -DEPTH/2 . 0-RSP 


GEN90300 




Z4 ( JJ) -DEPTH/2 .0-RSP*SIN (PI/4.0) 


GEN90310 




Z5(JJ) -DEPTH/2.0 


GEN90320 




Z6(JJ)=DEPTH/2.0+RSP*SIN (PI/4.0) 


GEN90330 




Z7 ( JJ) -DEPTH/2 . 0+RSP 


GEN90340 




Z8 ( JJ) -DEPTH/2 . 0+RSP* SIN (PI/4.0) 


GEN90350 

I 



Z9 ( JJ) -Z8 (JJ) +TCKSP*SIN (PI/ 4.0) 


GEN90360 

« 



Z10 (JJ)-Zl (JJ) 


GEN90370 




Zll ( JJ) -Z2 ( JJ) -TCKSP*SIN (PI/4.0) 


GEN90380 




Z12 ( JJ) — Z3 ( JJ) -TCKSP 


GEN90390 

1 



Z13 ( JJ) -Z4 ( JJ) -TCKSP* SIN (PI/4.0) 


GEN90400 

; ; 



Z14 (JJ) -Z5 (JJ) 


GEN90410 




Z15 ( JJ) -Z6 < JJ) +TCKSP*SIN (PI/4.0) 


GEN90420 

. ; 



Z16 ( JJ) — Z7 ( JJ) +TCKSP 


GEN90430 

j \ 



Z17 (JJ) -DEPTH/4.0 


GEN90440 




Z18 (JJ) -DEPTH/2.0 


GEN90450 




Z19 ( JJ) =3 . 0*DEPTH/ 4 . 0 


GEN90460 

~ - 



Z20 ( JJ) =3 . 0 ‘DEPTH/ 4 . 0 


GEN90470 




Z21 ( JJ) =3 . 0*DEPTH/4 . 0 


GEN90480 




Z22 (JJ) -DEPTH/2 .0 


GEN90490 




Z23(JJ) -DEPTH/4.0 


GEN90500 

- - 



Z24 (JJ) -DEPTH/4 . 0 


GEN90510 




Z25 (JJ) -DEPTH 


GEN90520 




Z26 (JJ) -DEPTH 


GEN90530 

- . 



Z27 (JJ) -DEPTH 


GEN90540 

" ' 



Z28 (JJ)-O.O 


GEN90550 

— 



Z29 (JJ) =0,0 


GEN90560 




Z30 ( JJ) -0 . 0 


GEN90570 






GEN90580 




IF(JJ.EQ.l) R-R-AA 


GEN90590 




IF ( JJ . EQ . 2 ) R-R-D/3.0 


GEN90600 




IF ( JJ . EQ . 3) R-R-D/3.0 


GEN90610 




IF ( JJ . EQ . 4) R-R-D/3.0 


GEN90620 




IF ( JJ . EQ . 5) R-R-BB 


GEN90630 




IF (JJ.EQ. 6) R-R-CC 


GEN90640 






GEN90650 

i ) 

15 


CONTINUE 


GEN90660 

W 





GEN90670 




RETURN 


GEN90680 




END 


GEN90690 






GEN 90700 




SUBROUTINE NEWFIL (STATUS, NO) 


GEN90710 






GEN90720 


C 

************************************************************* 

GEN90730 


C 

* 


★ 

GEN90740 


C 

* 

THIS SUBROUTINE CHECKS TO SEE IF THE FILE NAMED 

* 

GEN90750 


C 

* 

"GENERATE DATA A" EXISTS ON THE USER'S DISK. IF IT 

* 

GEN90760 


C 

* 

DOES NOT EXIST, IT IS CREATED AND THE USER IS 

* 

GEN90770 

1 / 

C 

* 

PROMPTED FOR THE INPUTS . 

* 

GEN90780 


C 

* 


* 

GEN907 90 


C 

* 

IF IT DOES EXIST, THEN THE USER IS 

* 

GEN90800 


C 

* 

NOT PROMPTED FOR THE INPUTS. THE INPUTS ARE READ 

* 

GEN 90810 


c 

* 

FROM THE EXISTING DATA FILE. 

* 

GEN90820 


c 

* 


* 

GEN90830 


c 

************************************************************* 

GEN90840 






GEN90850 






GEN90860 




CHARACTER FILE*20, STRING*38 


GEN90870 

= 



INTEGER STATUS, CMSCMD 


GEN90880 



o o o 
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C 


C 


15 


40 


50 


C 


C 


SET STRING TO BLANKS 
CLOSE (5) 

STRING - ' ' 

FILE-' GENERATE DATA A' 

CHECK STATUS OF INPUT FILENAME 

STRING-' STATE '//FILE 
STATUS-CMSCMD (STRING) 

IF (STATUS. EQ. 28) THEN 
WRITE (NO, *) ' ' 

WRITE (NO, * ) ' THE "GENERATE DATA" FILE WAS NOT FOUND ON DISK.' 
WRITE (NO, *) 'THEREFORE, YOU WILL BE PROMPTED FOR THE INPUTS.' 
WRITE (NO,*) 'A "GENERATE DATA" FILE WILL BE CREATED FROM YOUR' 
WRITE (NO, * ) 'RESPONSES SO THAT CHANGES IN THE FILE CAN EASILY' 
WRITE (NO,*) ' BE MADE AT A LATER TIME.' 

WRITE (NO,*) ' ' 

GO TO 40 

ELSE IF (STATUS . EQ . 36) THEN 

WRITE (NO, * ) ' DISK NOT ACCESSED' 

WRITE (NO, * ) ' RETURN CODE = 36' 

GO TO 50 

ELSE IF ( STATUS. NE.0) THEN 

WRITE (NO, * ) ' FILE STATUS ERROR' 

WRITE (NO, *) ' RETURN CODE = ', STATUS 
GO TO 50 
ENDIF 

IF (STATUS. EQ.0) GO TO 50 

IF FILE DOES NOT EXIST, THEN CREATE IT ON UNIT #8 

IF (STATUS. EQ.0) GO TO 50 

STRING-' FILEDEF 8 DISK '//FILE 
STATUS-CMSCMD (STRING) 

IF ( STATUS . NE . 0 ) THEN 

WRITE (NO, * ) ' FILEDEF ERROR - DEFINITION OF FILE AS UNIT 8 FAILED' 
WRITE (NO,*)' RETURN CODE = ', STATUS 
ENDIF 

STATUS- 1 

RETURN 

END 


FUNCTION CMS CMD (COMAND) 


INTEGER 

MAX CMD 



PARAMETER 

(MAX CMD 

* 20) 


INTEGER 

MAX DBL 



PARAMETER 

(MAX DBL 

- MAX 

CMD+1 ) 

INTEGER 

$END IT 



REAL* 8 

BUFFER 

(MAX 

DBL) 

CHARACTER* 8 

CMD STR 

(MAX 

CMD) 

INTEGER 

CMD SUB 



INTEGER 

CMS CMD 



CHARACTER* (*) 

COMAND 



INTEGER 

FIRST 




GEN908 90 
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GEN91200 
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GEN91280 
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GEN91300 
GEN91310 
GEN91320 
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GEN91340 
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INTRINSIC INDEX 

INTRINSIC LEN 

INTEGER LONG 

INTEGER LST 

INTEGER LST 1 

INTEGER LST 2 

INTEGER LST 3 

INTRINSIC MIN 

C 

C get the length of the command and initialize the start 
LONG = LEN (COMAND) 

C initialize the starting position and number of parameters 

FIRST - 1 
CMD SUB = 0 

C find the next blank in the command 

10 LST 1 - INDEX (COMAND (FIRST :), ' ' ) 

IF (LST 1 .EQ. 1) 

> THEN 

C first column was blank, move to next column 

FIRST = FIRST + 1 
GO TO 100 
END IF 

C look for a left or right paren 

LST 2 - INDEX (COMAND (FIRST: ),'(' ) 

LST 3 - INDEX (COMAND (FIRST: ),')' ) 

LST - LONG-FIRST+2 

C set LST to the location of the first or " " 

IF (LST 1 .GT. 0) LST = MIN (LST, LST 1) 

IF (LST 2 .GT. 0) LST - MIN (LST, LST 2) 

IF (LST 3 .GT. 0) LST = MIN (LST, LST 3) 

LST = LST + FIRST - 2 

C pick up next parameter, if it is there 

IF (LST .GE. FIRST) 

> THEN 

CMD SUB = CMD SUB + 1 

C make sure we have room for this parameter 

IF (CMD SUB .GT. MAX CMD) GO TO 200 
CMD STR (CMD SUB) =COMAND (FIRST : LST) 

ENDIF 

C 3 kip over trailing blank, if any 

IF (LST+1 .LE. LONG) 

> THEN 

IF (COMAND (LST+1: LST+1) .NE. ' ') 

> THEN 

CMD SUB = CMD SUB + 1 

IF (CMD SUB .GT. MAX CMD) GO TO 200 

CMD STR (CMD SUB) COMAND (LST+1 : LST+1) 

ENDIF 

ENDIF 

FIRST - LST+2 

C loop back if there is more to process 

100 IF (FIRST .LE. LONG) GO TO 10 
C no more to process, call $ENDIT to set it up for CM$CMD 

CMSCMD = $ENDIT (CMD STR, BUFFER, CMD SUB) 

RETURN 

200 CMSCMD = -1 
RETURN 
END 

FUNCTION SENDIT (CMD STR, BUFFER, BUF SIZ) 

C 

C this function will make sure that the command is properly 

C aligned for the SVC in CM$CMD 

C 

INTEGER SEND IT 
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INTEGER BUF SIZ 


GEN92170 




REAL* 8 BUFFER (BUF SIZ) 


GEN92180 




INTEGER CM$CMD 


GEN92190 




LOGICAL *1 CMD STR (8, BUF SIZ) 


GEN92200 




REAL* 8 D TEMP 


GEN92210 





REAL* 8 EOM FLG 


GEN92220 




INTEGER I 


GEN92230 




INTEGER J 


GEN92240 




LOGICAL* 1 L TEMP (8) 


GEN92250 

— 

c 




GEN92260 




DATA EOM FLG / ZFFFFFFFFFFFFFFFF/ 


GEN92270 

■ ; 

c 




GEN92280 

Li 

Lj 



EQUIVALENCE (L TEMP, D TEMP) 


GEN922 90 


c 




GEN92300 




DO 20 I - 1, BUF SIZ 


GEN92310 

Li 



DO 10 J - 1,8 


GEN92320 

D 



L TEMP ( J) =CMD STR ( J, I ) 


GEN92330 



10 

CONTINUE 


GEN92340 

I £ 



BUFFER (I) - D TEMP 


GEN92350 

5 -i 


20 

CONTINUE 


GEN92360 

LI 



BUFFER (BUF SIZ+1) = EOM FLG 


GEN92370 




SEND IT = CMSCMD (BUFFER) 


GEN92380 

?- i 



RETURN 


GEN92390 




END 


GEN92400 






GEN92410 


c 

************************* ************************************ 

GEN92420 


c 

* 


* 

GEN92430 


c 

* 

THIS SUBROUTINE WRITES A PROGRAM FILE THAT 

* 

GEN92440 


c 

* 

CONTAINS THE COMMANDS THAT WILL MERGE THE 

* 

GEN92450 


c 

* 

COINCIDENT NODES THAT EXIST IN THE MODEL. 

* 

GEN92460 

= : 

c 

* 

THE TOLERAENCE IS SET AT 0.01 INCHES. 

* 

GEN92470 

w- 

c 

* 


* 

GEN92480 


c 

************************************************************* 

GEN92490 






GEN92500 

- ■ 



SUBROUTINE COIN (NO) 


GEN92510 






GEN92520 




CHARACTER *10 NOAL, SLASH, GENERL, YES 


GEN92530 

■ ■ 





GEN92540 




NOAL='4 -1NOAL' 


GEN92550 




SLASH='l -1/' 


GEN92560 




GENERL=' 10 -1' 


GEN92570 




YES='3 — 1YES ' 


GEN92580 

— 





GEN92590 




WRITE (15, 30) SLASH 


GEN92600 


30 


FORMAT (2X, A5) 


GEN92610 






GEN92620 




WRITE (15, 35) GENERL 


GEN92630 


35 


FORMAT (IX, A5, 'T' ) 


GEN92640 






GEN92650 




WRITE (15, 40) GENERL 


GEN92660 


40 


FORMAT (IX, A5, 'MC' ) 


GEN92670 






GEN92680 




WRITE (15, 45) GENERL 


GEN92690 

— 

45 


FORMAT (IX, A5, 'CN' ) 


GEN92700 






GEN92710 




WRITE (15, 50) GENERL 


GEN92720 


50 


FORMAT ( IX, A5, 'ALL' ) 


GEN92730 

■“ 





GEN92740 




WRITE (15, 55) GENERL 


GEN92750 


55 


FORMAT (IX, A5,' 0.01') 


GEN92760 






GEN92770 




WRITE (15, 60) YES 


GEN92780 

I 

60 


FORMAT (2X,A8) 


GEN92790 


GEN92800 
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: ; 


WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 

— 


WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 

- ■ 


WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 

— 


WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 

- ; 


WRITE (15, 60) 

YES 

E : 


WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 



WRITE (15, 60) 

YES 
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